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=741925ef8730053cd25baa3e2f6c03d69040ae41;hp=3ba6dd1185bc0b347ce6392fbcd3418c8da05081;hb=20e337916b7e1e3ba16a579557a6d493a3231780;hpb=81eb8ebf83afd9410d40d4232eeb9fb64db991cc diff --git a/lib/Catalyst/Plugin/Session/State/Cookie.pm b/lib/Catalyst/Plugin/Session/State/Cookie.pm index 3ba6dd1..741925e 100644 --- a/lib/Catalyst/Plugin/Session/State/Cookie.pm +++ b/lib/Catalyst/Plugin/Session/State/Cookie.pm @@ -9,17 +9,17 @@ use NEXT; our $VERSION = "0.01"; sub setup_session { - my $c = shift; + my $c = shift; - $c->NEXT::setup_session(@_); + $c->NEXT::setup_session(@_); - $c->config->{session}{cookie_name} ||= "session"; + $c->config->{session}{cookie_name} ||= "session"; } sub finalize { my $c = shift; - my $cookie_name = $c->config->{session}{cookie_name}; + my $cookie_name = $c->config->{session}{cookie_name}; if ( my $sid = $c->sessionid ) { my $cookie = $c->request->cookies->{$cookie_name}; @@ -36,7 +36,9 @@ sub finalize { sub prepare_cookies { my $c = shift; - my $cookie_name = $c->config->{session}{cookie_name}; + my $ret = $c->NEXT::prepare_cookies(@_); + + my $cookie_name = $c->config->{session}{cookie_name}; if ( my $cookie = $c->request->cookies->{$cookie_name} ) { my $sid = $cookie->value; @@ -44,7 +46,7 @@ sub prepare_cookies { $c->log->debug(qq/Found sessionid "$sid" in cookie/) if $c->debug; } - $c->NEXT::prepare_cookies(@_); + return $ret; } __PACKAGE__ @@ -59,7 +61,7 @@ Catalyst::Plugin::Session::State::Cookie - A session ID =head1 SYNOPSIS - use Catalyst qw/Session Session::State::Cookie Session::Store::Foo/; + use Catalyst qw/Session Session::State::Cookie Session::Store::Foo/; =head1 DESCRIPTION @@ -78,7 +80,12 @@ Will restore if an appropriate cookie is found. =item finalize -Will set a cookie called C if it doesn't exist or if it's value is not the current session id. +Will set a cookie called C if it doesn't exist or if it's value is not +the current session id. + +=item setup_session + +Will set the C parameter to it's default value if it isn't set. =back