$c->config->{session}{cookie_name} ||= "session";
}
-sub finalize {
+sub finalize_cookies {
my $c = shift;
my $cookie_name = $c->config->{session}{cookie_name};
}
}
- return $c->NEXT::finalize(@_);
+ return $c->NEXT::finalize_cookies(@_);
}
sub prepare_cookies {
Will restore if an appropriate cookie is found.
-=item finalize
+=item finalize_cookies
Will set a cookie called C<session> if it doesn't exist or if it's value is not
the current session id.
$cxt->clear;
$res->clear;
-can_ok( $m, "finalize" );
-$cxt->finalize;
+can_ok( $m, "finalize_cookies" );
+$cxt->finalize_cookies;
ok( !$res->called("cookies"),
"response cookie was not set since res cookie is already there" );
$sessionid = undef;
$res->clear;
-$cxt->finalize;
+$cxt->finalize_cookies;
ok( !$res->called("cookies"),
"response cookie was not set when sessionid was deleted, even if req cookie is still there"
);
$cxt->clear;
$res->clear;
-$cxt->finalize;
+$cxt->finalize_cookies;
$res->called_ok( "cookies", "response cookie was set when sessionid changed" );
is_deeply(
\%res_cookies,
%res_cookies = ();
$sessionid = undef;
-$cxt->finalize;
+$cxt->finalize_cookies;
ok( !$res->called("cookies"),
"response cookie was not set when there is no sessionid or request cookie"
);
%res_cookies = ();
$res->clear;
-$cxt->finalize;
+$cxt->finalize_cookies;
$res->called_ok( "cookies",
"response cookie was set when session was created" );