diff options
author | dakkar <dakkar@thenautilus.net> | 2014-12-30 11:57:48 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2014-12-30 11:57:48 +0000 |
commit | 3294492369e6801b79eaf4ac36310ab6dde9a654 (patch) | |
tree | 83aff05ed940c9e6ac9720dd43bbca8f45d1d363 /lib/Net/Hawk/Server.pm | |
parent | whitespace fixes (diff) | |
download | net-hawk-3294492369e6801b79eaf4ac36310ab6dde9a654.tar.gz net-hawk-3294492369e6801b79eaf4ac36310ab6dde9a654.tar.bz2 net-hawk-3294492369e6801b79eaf4ac36310ab6dde9a654.zip |
start of uri tests
the implementation is a stub!
Diffstat (limited to 'lib/Net/Hawk/Server.pm')
-rw-r--r-- | lib/Net/Hawk/Server.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/lib/Net/Hawk/Server.pm b/lib/Net/Hawk/Server.pm new file mode 100644 index 0000000..1b39352 --- /dev/null +++ b/lib/Net/Hawk/Server.pm @@ -0,0 +1,18 @@ +package Net::Hawk::Server { + use v6; + + our sub authenticate( + %request!, + &credentialsFunc:($,&)!, + %whatever!, + &callback:($,%,%)!, + ) { + my %creds; + &credentialsFunc.('some id', sub ($err,%credentials) { %creds = %credentials }); + %request<url> ~~ m{'bewit=' $<ext>=(.*?) ['&'|$]}; + my %attributes = ( + ext => $/<ext>; + ); + &callback.(Nil,%creds,%attributes); + }; +}; |