1 package # Hide from PAUSE
10 my ( $self, $c ) = @_;
11 $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
15 my ( $self, $c ) = @_;
16 my $count = ++$c->session->{counter};
17 $c->res->write("hit number ");
18 $c->res->write($count);
21 sub deleteme : Local {
22 my ( $self, $c ) = @_;
23 my $id = $c->get_session_id;
25 my $id2 = $c->get_session_id;
26 $c->res->body( $id ne ( $id2 || '' ) );