X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FSession%2FState%2FCookie.pm;h=aa1d9a389893f8c0dabefc88b3528583550541fe;hp=33827299dc2fd48929d1f6058924f89650a404a1;hb=d52e50798843d02dd22557fbac181a7147c0c608;hpb=41b4b15cc70693c28297118b695e012ed9089f65 diff --git a/lib/Catalyst/Plugin/Session/State/Cookie.pm b/lib/Catalyst/Plugin/Session/State/Cookie.pm index 3382729..aa1d9a3 100644 --- a/lib/Catalyst/Plugin/Session/State/Cookie.pm +++ b/lib/Catalyst/Plugin/Session/State/Cookie.pm @@ -16,7 +16,7 @@ sub setup_session { $c->config->{session}{cookie_name} ||= "session"; } -sub finalize { +sub finalize_cookies { my $c = shift; my $cookie_name = $c->config->{session}{cookie_name}; @@ -28,16 +28,15 @@ sub finalize { value => $sid, expires => $c->session->{__expires}, }; - if ( $c->config->{session}{cookie_domain} ) { - $c->response->cookies->{$cookie_name}->{domain} = - $c->config->{session}{cookie_domain}; + if ( my $domain = $c->config->{session}{cookie_domain} ) { + $c->response->cookies->{$cookie_name}->{domain} = $domain; } $c->log->debug(qq/A cookie with the session id "$sid" was saved/) if $c->debug; } } - return $c->NEXT::finalize(@_); + return $c->NEXT::finalize_cookies(@_); } sub prepare_cookies { @@ -85,7 +84,7 @@ This plugin stores the session ID on the client using the cookie mechanism. Will restore if an appropriate cookie is found. -=item finalize +=item finalize_cookies Will set a cookie called C if it doesn't exist or if it's value is not the current session id.