Perltidy + pod tests for all session plugins
Yuval Kogman [Mon, 31 Oct 2005 09:05:20 +0000 (09:05 +0000)]
Build.PL
lib/Catalyst/Plugin/Session/State/Cookie.pm

index f3cfabe..a766290 100644 (file)
--- 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;
 
index f1aaa8d..741925e 100644 (file)
@@ -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