view release on metacpan or  search on metacpan

t/lib/SessionExpiry/Controller/Root.pm  view on Meta::CPAN

        $c->res->output($c->get_session_data("expires:$sid"));
    }
}

sub session_expires : Global {
    my ($self, $c) = @_;
    $c->session;
    $c->res->output($c->session_expires);
}

sub update_session : Global {
    my ($self, $c) = @_;
    $c->session->{foo} ++;
    $c->res->output($c->session->{foo});
}