1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
package t::lib::TestApp;
use Dancer;
set session => 'simple';
set plugins => { 'Auth::Extensible' => { provider => 'Example' } };
use Dancer::Plugin::Auth::Extensible;
no warnings 'uninitialized';
get '/' => sub {
"Index always accessible";
};
get '/loggedin' => require_login sub {
"You are logged in";
};
get '/name' => require_login sub {
return "Hello, " . logged_in_user->{name};
};
get '/roles' => require_login sub {
return join ',', sort @{ user_roles() };
};
get '/roles/:user' => require_login sub {
my $user = param 'user';
return join ',', sort @{ user_roles($user) };
};
get '/roles/:user/:realm' => require_login sub {
my $user = param 'user';
my $realm = param 'realm';
return join ',', sort @{ user_roles($user, $realm) };
};
get '/realm' => require_login sub {
return session->{logged_in_user_realm};
};
get '/beer' => require_role BeerDrinker => sub {
"You can have a beer";
};
get '/piss' => require_role BearGrylls => sub {
"You can drink piss";
};
get '/piss/regex' => require_role qr/beer/i => sub {
"You can drink piss now";
};
get '/anyrole' => require_any_role ['Foo','BeerDrinker'] => sub {
"Matching one of multiple roles works";
};
get '/allroles' => require_all_roles ['BeerDrinker', 'Motorcyclist'] => sub {
"Matching multiple required roles works";
};
get qr{/regex/(.+)} => require_login sub {
return "Matched";
};
get '/testcaching' => sub {
my $orig = Dancer::Plugin::Auth::Extensible::Provider::Config->can('get_user_details');
my $count = 0;
no warnings 'redefine';
local *Dancer::Plugin::Auth::Extensible::Provider::Config::get_user_details = sub {
$count++;
$orig->(@_);
};
# Call logged_in_user() multiple times, ensure we get the same result each
# time, and that it's cached
my @res;
push @res, $count;
push @res, logged_in_user()->{user};
push @res, $count;
push @res, logged_in_user()->{user};
push @res, $count;
return join ":", @res;
};
1;
|
