From: Yuval Kogman Date: Mon, 31 Oct 2005 09:05:20 +0000 (+0000) Subject: Perltidy + pod tests for all session plugins X-Git-Tag: v0.01~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=commitdiff_plain;h=20e337916b7e1e3ba16a579557a6d493a3231780 Perltidy + pod tests for all session plugins --- diff --git a/Build.PL b/Build.PL index f3cfabe..a766290 100644 --- a/Build.PL +++ b/Build.PL @@ -9,8 +9,8 @@ my $build = Module::Build->new( 'perl' => '5.8.1', 'Catalyst::Plugin::Session' => 0.01, }, - create_readme => 1, - sign => 1, + create_readme => 1, + sign => 1, ); $build->create_build_script; diff --git a/lib/Catalyst/Plugin/Session/State/Cookie.pm b/lib/Catalyst/Plugin/Session/State/Cookie.pm index f1aaa8d..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}; @@ -38,7 +38,7 @@ sub prepare_cookies { my $ret = $c->NEXT::prepare_cookies(@_); - my $cookie_name = $c->config->{session}{cookie_name}; + my $cookie_name = $c->config->{session}{cookie_name}; if ( my $cookie = $c->request->cookies->{$cookie_name} ) { my $sid = $cookie->value; @@ -46,7 +46,7 @@ sub prepare_cookies { $c->log->debug(qq/Found sessionid "$sid" in cookie/) if $c->debug; } - return $ret; + return $ret; } __PACKAGE__ @@ -61,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