1 package SessionTestApp::Controller::Root;
6 use base qw/Catalyst::Controller/;
8 __PACKAGE__->config( namespace => '' );
11 my ( $self, $c ) = @_;
13 $c->res->output("logged in");
17 my ( $self, $c ) = @_;
19 "logged out after " . $c->session->{counter} . " requests" );
20 $c->delete_session("logout");
23 sub set_session_variable : Global {
24 my ( $self, $c, $var, $val ) = @_;
25 $c->session->{$var} = $val;
26 $c->res->output("session variable set");
29 sub get_session_variable : Global {
30 my ( $self, $c, $var ) = @_;
31 my $val = $c->session->{$var} || 'n.a.';
32 $c->res->output("VAR_$var=$val");
35 sub get_sessid : Global {
36 my ( $self, $c ) = @_;
37 my $sid = $c->sessionid || 'n.a.';
38 $c->res->output("SID=$sid");
41 sub dump_session : Global {
42 my ( $self, $c ) = @_;
43 my $sid = $c->sessionid || 'n.a.';
44 my $dump = Dumper($c->session || 'n.a.');
45 $c->res->output("[SID=$sid]\n$dump");
48 sub change_sessid : Global {
49 my ( $self, $c ) = @_;
50 $c->change_session_id;
51 $c->res->output("session id changed");
55 my ( $self, $c ) = @_;
56 if ( $c->session_is_valid ) {
57 $c->res->output("you are logged in, session expires at " . $c->session_expires);
58 $c->session->{counter}++;
61 $c->res->output("please login");
65 sub user_agent : Global {
66 my ( $self, $c ) = @_;
67 $c->res->output('UA=' . $c->req->user_agent);
70 sub accessor_test : Global {
71 my ( $self, $c ) = @_;
84 $c->session->{five} = 5;
86 for my $key (keys %{ $c->session }) {
87 $c->res->write("$key: " . $c->session->{$key} . "\n");