t/lib/AuthSessionTestApp.pm

   1 package User::SessionRestoring;
   2 use base qw/Catalyst::Authentication::User::Hash/;
   3
   4 sub for_session { $_[0]->id }
   5 sub store { $_[0]->{store} }
   6
   7 package AuthSessionTestApp;
   8 use strict;
   9 use warnings;
  10 use base qw/Catalyst/;
  11
  12 use Catalyst qw/
  13         Session
  14         Session::Store::Dummy
  15         Session::State::Cookie
  16
  17         Authentication
  18         Authentication::Store::Minimal
  19         Authentication::Credential::Password
  20 /;
  21
  22 our $users = {
  23         foo => User::SessionRestoring->new(
  24                 id => 'foo',
  25                 password => "s3cr3t",
  26         ),
  27 };
  28
  29 __PACKAGE__->config(authentication => {users => $users});
  30
  31 __PACKAGE__->setup;
  32
  33 $users->{foo}{store} = __PACKAGE__->default_auth_store;
  34
  35 1;
  36