$c->delete_session("logout");
}
+sub logout_persist : Global {
+ my ( $self, $c ) = @_;
+ # session is not deleted
+ $c->res->redirect( $c->uri_for('/') );
+}
+
sub set_session_variable : Global {
my ( $self, $c, $var, $val ) = @_;
$c->session->{$var} = $val;
}
}
+sub extend_session_expires : Global {
+ my ($self, $c) = @_;
+ $c->extend_session_expires(31536000);
+ $c->res->output($c->session_expires);
+}
+
1;