3 package SessionTestApp;
4 use Catalyst qw/Session Session::Store::Dummy Session::State::Cookie/;
9 __PACKAGE__->config->{session} = {
10 # needed for live_verify_user_agent.t; should be harmless for other tests
11 verify_user_agent => 1,
15 my ( $self, $c ) = @_;
17 $c->res->output("logged in");
21 my ( $self, $c ) = @_;
23 "logged out after " . $c->session->{counter} . " requests" );
24 $c->delete_session("logout");
28 my ( $self, $c ) = @_;
29 if ( $c->session_is_valid ) {
30 $c->res->output("you are logged in, session expires at " . $c->session_expires);
31 $c->session->{counter}++;
34 $c->res->output("please login");
38 sub user_agent : Global {
39 my ( $self, $c ) = @_;
40 $c->res->output('UA=' . $c->req->user_agent);