From: Tomas Doran Date: Sat, 30 Jun 2012 10:12:17 +0000 (+0100) Subject: Swap tabs for space X-Git-Tag: 0.10021~8 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=675fe850ff8ef284e35f9b78141543187df59d72;hp=eb8e53a48e5646d0557b3402d836d1d6f74e0ff9;p=catagits%2FCatalyst-Plugin-Authentication.git Swap tabs for space --- diff --git a/lib/Catalyst/Authentication/Credential/Remote.pm b/lib/Catalyst/Authentication/Credential/Remote.pm index 6c6b460..211e89d 100644 --- 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 --- 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 --- 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 --- 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 --- 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 /) {