Commit | Line | Data |
300eb468 |
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->sessionid ) { |
6687905d |
25 | $c->res->output("you are logged in, session expires at " . $c->session_expires); |
45c0711b |
26 | $c->session->{counter}++; |
300eb468 |
27 | } |
28 | else { |
29 | $c->res->output("please login"); |
30 | } |
31 | } |
32 | |
33 | __PACKAGE__->setup; |
34 | |
35 | __PACKAGE__; |
36 | |