2 CookieTestApp::Controller::Root;
6 use base qw/Catalyst::Controller/;
8 __PACKAGE__->config( namespace => '' );
11 my ( $self, $c ) = @_;
12 $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
16 my ( $self, $c ) = @_;
17 my $count = ++$c->session->{counter};
18 $c->res->write("hit number ");
19 $c->res->write($count);
22 sub deleteme : Local {
23 my ( $self, $c ) = @_;
24 my $id = $c->get_session_id;
26 my $id2 = $c->get_session_id;
27 $c->res->body( $id ne ( $id2 || '' ) );