3 package SessionTestApp;
4 use Catalyst qw/Session Session::Store::Dummy Session::State::Cookie/;
10 my ( $self, $c ) = @_;
12 $c->res->output("logged in");
16 my ( $self, $c ) = @_;
18 "logged out after " . $c->session->{counter} . " requests" );
19 $c->delete_session("logout");
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}++;
29 $c->res->output("please login");