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
|
package AuthRealmTestAppProgressive;
use warnings;
use strict;
use base qw/Catalyst/;
### using A::Store::minimal with new style realms
### makes the app blow up, since c::p::a::s::minimal
### isa c:a::s::minimal, and it's compat setup() gets
### run, with an unexpected config has (realms on top,
### not users). This tests makes sure the app no longer
### blows up when this happens.
use Catalyst qw/
Authentication
Authentication::Store::Minimal
/;
our %members = (
'members' => {
bob => { password => "s00p3r" }
},
'other' => {
sally => { password => "s00p3r" }
},
);
__PACKAGE__->config('Plugin::Authentication' => {
default_realm => 'progressive',
progressive => {
class => 'Progressive',
realms => [ 'other', 'members' ],
},
other => {
credential => {
class => 'Password',
password_field => 'password',
password_type => 'clear'
},
store => {
class => 'Minimal',
users => $members{other},
}
},
members => {
credential => {
class => 'Password',
password_field => 'password',
password_type => 'clear'
},
store => {
class => 'Minimal',
users => $members{members},
}
},
});
__PACKAGE__->setup;
1;
|
