1 package # Hide from PAUSE
9 __PACKAGE__->config->{session} = { cookie_secure => 2 };
12 my ( $self, $c ) = @_;
13 $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
17 my ( $self, $c ) = @_;
18 my $count = ++$c->session->{counter};
19 $c->res->write("hit number ");
20 $c->res->write($count);
23 sub deleteme : Local {
24 my ( $self, $c ) = @_;
25 my $id = $c->get_session_id;
27 my $id2 = $c->get_session_id;
28 $c->res->body( $id ne ( $id2 || '' ) );