Commit | Line | Data |
602b9593 |
1 | package # Hide from PAUSE |
2 | CookieTestApp; |
3 | use Catalyst qw/ |
4 | Session |
5 | Session::Store::Dummy |
6 | Session::State::Cookie |
7 | /; |
8 | |
6a9ca807 |
9 | __PACKAGE__->config->{session} = { cookie_secure => 2 }; |
10 | |
602b9593 |
11 | sub page : Local { |
12 | my ( $self, $c ) = @_; |
13 | $c->res->body( "Hi! hit number " . ++$c->session->{counter} ); |
14 | } |
15 | |
16 | sub stream : Local { |
17 | my ( $self, $c ) = @_; |
18 | my $count = ++$c->session->{counter}; |
19 | $c->res->write("hit number "); |
20 | $c->res->write($count); |
21 | } |
22 | |
23 | sub deleteme : Local { |
24 | my ( $self, $c ) = @_; |
25 | my $id = $c->get_session_id; |
26 | $c->delete_session; |
27 | my $id2 = $c->get_session_id; |
28 | $c->res->body( $id ne ( $id2 || '' ) ); |
29 | } |
30 | |
31 | __PACKAGE__->setup; |
32 | |
33 | 1; |
34 | |