1 package SessionExpiry::Controller::Root;
5 use base qw/Catalyst::Controller/;
7 __PACKAGE__->config( namespace => '' );
9 sub session_data_expires : Global {
10 my ( $self, $c ) = @_;
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"));
18 sub session_expires : Global {
21 $c->res->output($c->session_expires);