Swap tabs for space

diff --git a/lib/Catalyst/Authentication/Credential/Remote.pm b/lib/Catalyst/Authentication/Credential/Remote.pm
index 6c6b460..211e89d 100644 (file)
--- a/lib/Catalyst/Authentication/Credential/Remote.pm
+++ b/lib/Catalyst/Authentication/Credential/Remote.pm
@@ -58,12 +58,12 @@ sub authenticate {
             # maybe show warning that we are gonna use DEPRECATED $req->user            
             if (ref($c->req->user)) {
                 # I do not know exactly when this happens but it happens
-               Catalyst::Exception->throw( "Cannot get remote user from ".
-               "\$c->req->user as it seems to be a reference not a string" );
-           }
-           else {
-               $remuser = $c->req->user;
-           }
+            Catalyst::Exception->throw( "Cannot get remote user from ".
+        "\$c->req->user as it seems to be a reference not a string" );
+        }
+        else {
+            $remuser = $c->req->user;
+        }
         }
     }    
     elsif ($self->source =~ /^(SSL_CLIENT_.*|CERT_*|AUTH_USER)$/) {

diff --git a/lib/Catalyst/Authentication/Store/Null.pm b/lib/Catalyst/Authentication/Store/Null.pm
index 84a95f4..2664685 100644 (file)
--- a/lib/Catalyst/Authentication/Store/Null.pm
+++ b/lib/Catalyst/Authentication/Store/Null.pm
@@ -17,12 +17,12 @@ sub new {
 }
 
 sub for_session {
-       my ( $self, $c, $user ) = @_;
+    my ( $self, $c, $user ) = @_;
     return $user;
 }
 
 sub from_session {
-       my ( $self, $c, $user ) = @_;
+    my ( $self, $c, $user ) = @_;
     return $user;
 }
 
@@ -64,7 +64,7 @@ Catalyst::Authentication::Store::Null - Null authentication store
                     class => 'Null',
                 }
             }
-       }
+        }
     });
 
 =head1 DESCRIPTION

diff --git a/lib/Catalyst/Authentication/User.pm b/lib/Catalyst/Authentication/User.pm
index 36ac802..d570459 100644 (file)
--- a/lib/Catalyst/Authentication/User.pm
+++ b/lib/Catalyst/Authentication/User.pm
@@ -94,8 +94,8 @@ Catalyst::Authentication::User - Base class for user objects.
 
 =head1 SYNOPSIS
 
-       package MyStore::User;
-       use base qw/Catalyst::Authentication::User/;
+    package MyStore::User;
+    use base qw/Catalyst::Authentication::User/;
 
 =head1 DESCRIPTION
 

diff --git a/lib/Catalyst/Authentication/User/Hash.pm b/lib/Catalyst/Authentication/User/Hash.pm
index 3fd47ce..4ba8d72 100644 (file)
--- a/lib/Catalyst/Authentication/User/Hash.pm
+++ b/lib/Catalyst/Authentication/User/Hash.pm
@@ -111,11 +111,11 @@ object based on hashes.
 
 =head1 SYNOPSIS
 
-       use Catalyst::Authentication::User::Hash;
-       
-       Catalyst::Authentication::User::Hash->new(
-               password => "s3cr3t",
-       );
+    use Catalyst::Authentication::User::Hash;
+    
+    Catalyst::Authentication::User::Hash->new(
+        password => "s3cr3t",
+    );
 
 =head1 DESCRIPTION
 

diff --git a/lib/Catalyst/Plugin/Authentication/Store/Minimal.pm b/lib/Catalyst/Plugin/Authentication/Store/Minimal.pm
index f81d6e6..f79b97e 100644 (file)
--- a/lib/Catalyst/Plugin/Authentication/Store/Minimal.pm
+++ b/lib/Catalyst/Plugin/Authentication/Store/Minimal.pm
@@ -36,7 +36,7 @@ sub setup {
 
     $c->default_auth_store( Catalyst::Authentication::Store::Minimal->new( $cfg, $c ) ) if $cfg;
 
-       $c->next::method(@_);
+    $c->next::method(@_);
 }
 
 foreach my $method (qw/ get_user user_supports find_user from_session /) {