X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=blobdiff_plain;f=t%2Flib%2FCookieTestApp.pm;fp=t%2Flib%2FCookieTestApp.pm;h=55703f63ea9818bd887765fa4994f52ab328bd18;hp=15fdeaba10bd597b1ab8df9340d611ffbbb40864;hb=5aca1bddabf268a471f10cf9bfe5004c7f8136d0;hpb=bab1512d7270f7f38f63a54ebe0677f27e9172b5 diff --git a/t/lib/CookieTestApp.pm b/t/lib/CookieTestApp.pm index 15fdeab..55703f6 100644 --- a/t/lib/CookieTestApp.pm +++ b/t/lib/CookieTestApp.pm @@ -1,34 +1,17 @@ package # Hide from PAUSE CookieTestApp; +use strict; +use warnings; + +use base qw/Catalyst/; use Catalyst qw/ Session Session::Store::Dummy Session::State::Cookie /; -__PACKAGE__->config->{session} = { cookie_secure => 2 }; - -sub page : Local { - my ( $self, $c ) = @_; - $c->res->body( "Hi! hit number " . ++$c->session->{counter} ); -} - -sub stream : Local { - my ( $self, $c ) = @_; - my $count = ++$c->session->{counter}; - $c->res->write("hit number "); - $c->res->write($count); -} - -sub deleteme : Local { - my ( $self, $c ) = @_; - my $id = $c->get_session_id; - $c->delete_session; - my $id2 = $c->get_session_id; - $c->res->body( $id ne ( $id2 || '' ) ); -} +__PACKAGE__->config('Plugin::Session' => { cookie_secure => 2 }); __PACKAGE__->setup; 1; -