sub finalize_cookies {
my $c = shift;
- if ( $c->sessionid) {
- $c->update_session_cookie( $c->make_session_cookie );
- }
+ if ( $c->sessionid ) {
+ $c->update_session_cookie( $c->make_session_cookie );
+ }
return $c->NEXT::finalize_cookies(@_);
}
sub update_session_cookie {
- my ( $c, $updated ) = @_;
+ my ( $c, $updated ) = @_;
my $cookie_name = $c->config->{session}{cookie_name};
- $c->response->cookies->{$cookie_name} = $updated;
+ $c->response->cookies->{$cookie_name} = $updated;
}
sub make_session_cookie {
- my $c = shift;
-
- my $cfg = $c->config->{session};
- my $cookie = {
- value => $c->sessionid,
- ($cfg->{cookie_domain} ? (domain => $cfg->{cookie_domain}) : ()),
- };
-
- if ( exists $cfg->{cookie_expires} ) {
- if ( my $ttl = $cfg->{cookie_expires} ) {
- $cookie->{expires} = time() + $ttl;
- } # else { cookie is non-persistent }
- } else {
- $cookie->{expires} = $c->session->{__expires};
- }
+ my $c = shift;
+
+ my $cfg = $c->config->{session};
+ my $cookie = {
+ value => $c->sessionid,
+ ( $cfg->{cookie_domain} ? ( domain => $cfg->{cookie_domain} ) : () ),
+ };
+
+ if ( exists $cfg->{cookie_expires} ) {
+ if ( my $ttl = $cfg->{cookie_expires} ) {
+ $cookie->{expires} = time() + $ttl;
+ } # else { cookie is non-persistent }
+ }
+ else {
+ $cookie->{expires} = $c->session->{__expires};
+ }
- return $cookie;
+ return $cookie;
}
sub prepare_cookies {
can_ok( $m, "finalize_cookies" );
$cxt->finalize_cookies;
-{ local $TODO = "This check is a pain to write, should be done by catalyst itself";
-ok( !$res->called("cookies"),
- "response cookie was not set since res cookie is already there" );
+{
+ local $TODO =
+ "This check is a pain to write, should be done by catalyst itself";
+ ok( !$res->called("cookies"),
+ "response cookie was not set since res cookie is already there" );
}
$cxt->clear;
sub stream : Local {
my ( $self, $c ) = @_;
- my $count = ++$c->session->{counter};
+ my $count = ++$c->session->{counter};
$c->res->write("hit number ");
- $c->res->write( $count );
+ $c->res->write($count);
}
__PACKAGE__->setup;
my $m = Test::WWW::Mechanize::Catalyst->new;
-$m->get_ok("http://foo.com/stream", "get page");
-$m->content_contains("hit number 1", "session data created");
+$m->get_ok( "http://foo.com/stream", "get page" );
+$m->content_contains( "hit number 1", "session data created" );
my $expired;
-$m->cookie_jar->scan(sub { $expired = $_[8] });
+$m->cookie_jar->scan( sub { $expired = $_[8] } );
-$m->get_ok("http://foo.com/page", "get page");
-$m->content_contains("hit number 2", "session data restored");
+$m->get_ok( "http://foo.com/page", "get page" );
+$m->content_contains( "hit number 2", "session data restored" );
-$m->get_ok("http://foo.com/stream", "get stream");
-$m->content_contains("hit number 3", "session data restored");
+$m->get_ok( "http://foo.com/stream", "get stream" );
+$m->content_contains( "hit number 3", "session data restored" );
sleep 1;
-$m->get_ok("http://foo.com/page", "get stream");
-$m->content_contains("hit number 4", "session data restored");
+$m->get_ok( "http://foo.com/page", "get stream" );
+$m->content_contains( "hit number 4", "session data restored" );
my $updated_expired;
-$m->cookie_jar->scan(sub { $updated_expired = $_[8] });
+$m->cookie_jar->scan( sub { $updated_expired = $_[8] } );
-cmp_ok( $expired, "<", $updated_expired, "cookie expiration was extended");
+cmp_ok( $expired, "<", $updated_expired, "cookie expiration was extended" );