$c->res->output("logged in");
}
+sub login_without_address : Global {
+ my ( $self, $c ) = @_;
+ $c->session;
+ $c->log->debug($c->request->address);
+ delete $c->session->{__address};
+ $c->res->output("logged in (without address)");
+}
+
sub logout : Global {
my ( $self, $c ) = @_;
$c->res->output(
$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 dump_these_loads_session : Global {
+ my ($self, $c) = @_;
+
+ $c->dump_these();
+ if ($c->_session) {
+ $c->res->write('LOADED')
+ }
+ else {
+ $c->res->write('NOT');
+ }
+}
+
+sub extend_session_expires : Global {
+ my ($self, $c) = @_;
+ $c->extend_session_expires(31536000);
+ $c->res->output($c->session_expires);
+}
+
1;