t/lib/SessionTestApp.pm

   1 #!/usr/bin/perl
   2
   3 package SessionTestApp;
   4 use Catalyst qw/Session Session::Store::Dummy Session::State::Cookie/;
   5
   6 use strict;
   7 use warnings;
   8
   9 sub login : Global {
  10     my ( $self, $c ) = @_;
  11     $c->session;
  12     $c->res->output("logged in");
  13 }
  14
  15 sub logout : Global {
  16     my ( $self, $c ) = @_;
  17     $c->res->output(
  18         "logged out after " . $c->session->{counter} . " requests" );
  19     $c->delete_session("logout");
  20 }
  21
  22 sub page : Global {
  23     my ( $self, $c ) = @_;
  24     if ( $c->session_is_valid ) {
  25         $c->res->output("you are logged in, session expires at " . $c->session_expires);
  26         $c->session->{counter}++;
  27     }
  28     else {
  29         $c->res->output("please login");
  30     }
  31 }
  32
  33 __PACKAGE__->setup;
  34
  35 __PACKAGE__;
  36