Commit | Line | Data |
079b2fbe |
1 | package SessionExpiry::Controller::Root; |
2 | use strict; |
3 | use warnings; |
4 | |
5 | use base qw/Catalyst::Controller/; |
6 | |
7 | __PACKAGE__->config( namespace => '' ); |
8 | |
9 | sub session_data_expires : Global { |
10 | my ( $self, $c ) = @_; |
11 | $c->session; |
12 | if (my $sid = $c->sessionid) { |
13 | $c->finalize_headers(); # force expiration to be updated |
14 | $c->res->output($c->get_session_data("expires:$sid")); |
15 | } |
16 | } |
17 | |
18 | sub session_expires : Global { |
19 | my ($self, $c) = @_; |
20 | $c->session; |
21 | $c->res->output($c->session_expires); |
22 | } |
3d03a2ba |
23 | |
24 | sub update_session : Global { |
25 | my ($self, $c) = @_; |
26 | $c->session->{foo} ++; |
27 | $c->res->output($c->session->{foo}); |
28 | } |