aboutsummaryrefslogtreecommitdiff
path: root/lib/Net/Hawk/Client.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net/Hawk/Client.pm')
-rw-r--r--lib/Net/Hawk/Client.pm10
1 files changed, 10 insertions, 0 deletions
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" };
}