1 package User::SessionRestoring;
2 use base qw/Catalyst::Authentication::User::Hash/;
4 sub for_session { $_[0]->id }
5 sub store { $_[0]->{store} }
7 package AuthSessionTestApp;
10 use base qw/Catalyst/;
15 Session::State::Cookie
18 Authentication::Store::Minimal
19 Authentication::Credential::Password
23 foo => User::SessionRestoring->new(
29 __PACKAGE__->config(authentication => {users => $users});
33 $users->{foo}{store} = __PACKAGE__->default_auth_store;