From 3294492369e6801b79eaf4ac36310ab6dde9a654 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 30 Dec 2014 11:57:48 +0000
Subject: start of uri tests

the implementation is a stub!
---
 lib/Net/Hawk/Client.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lib/Net/Hawk/Client.pm')

diff --git a/lib/Net/Hawk/Client.pm b/lib/Net/Hawk/Client.pm
index 5f649c4..fd28532 100644
--- a/lib/Net/Hawk/Client.pm
+++ b/lib/Net/Hawk/Client.pm
@@ -145,4 +145,14 @@ package Net::Hawk::Client {
         return $calculated_hash eq $attributes<hash>;
     };
 
+    our proto getBewit(*@,*%) {*};
+    multi getBewit(Str:D $uri!,*%nam) {
+        return getBewit(URI.new($uri),|%nam);
+    };
+    multi getBewit(
+        URI:D $uri!,
+        :%credentials!,
+        Int:D :$ttl_sec!,
+        Str :$ext,
+    ) { return "$ext" };
 }
-- 
cgit v1.2.3