From: Karen Etheridge Date: Mon, 3 Jul 2017 19:29:19 +0000 (-0700) Subject: whitespace fixes X-Git-Tag: v1.006~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git;a=commitdiff_plain;h=29150588559a88acff99d5486408d2966f0b856d whitespace fixes --- diff --git a/Changes b/Changes index c6df791..f23bcbd 100644 --- a/Changes +++ b/Changes @@ -17,7 +17,7 @@ Release history for Catalyst-Authentication-Store-Htpasswd 1.002 2008-10-02 09:20:30Z - Add Test::WWW::Mechanize::Catalyst and Test::use::ok - to build_requires. CPANTs will keep hitting me until + to build_requires. CPANTs will keep hitting me until I get it right :( - Add code and docs for user_field configuration option - Add code and docs for user_class configuration option diff --git a/dist.ini b/dist.ini index 4d04bca..353a684 100644 --- a/dist.ini +++ b/dist.ini @@ -17,7 +17,6 @@ GithubMeta.remote = github server = github Test::MinimumVersion.max_target_perl = 5.008003 StaticInstall.dry_run = 0 ; we can safely set this here --remove = Test::EOL ; TODO -remove = Test::NoTabs ; TODO -remove = Test::CleanNamespaces ; TODO -remove = Test::PodSpelling ; TODO diff --git a/lib/Catalyst/Authentication/Store/Htpasswd.pm b/lib/Catalyst/Authentication/Store/Htpasswd.pm index 429183a..090f6e3 100644 --- a/lib/Catalyst/Authentication/Store/Htpasswd.pm +++ b/lib/Catalyst/Authentication/Store/Htpasswd.pm @@ -17,7 +17,7 @@ BEGIN { __PACKAGE__->mk_accessors(qw/file user_field user_class/) } sub new { my ($class, $config, $app, $realm) = @_; - + my $file = delete $config->{file}; unless (ref $file) { my $filename = ($file =~ m|^/|) ? $file : $app->path_to($file)->stringify; @@ -27,7 +27,7 @@ sub new { $config->{file} = $file; $config->{user_class} ||= __PACKAGE__ . '::User'; $config->{user_field} ||= 'username'; - + bless { %$config }, $class; } @@ -40,7 +40,7 @@ sub find_user { sub user_supports { my $self = shift; - # this can work as a class method, but in that case you can't have + # this can work as a class method, but in that case you can't have # a custom user class ref($self) ? $self->user_class->supports(@_) : Catalyst::Authentication::Store::Htpasswd::User->supports(@_); @@ -79,7 +79,7 @@ __END__ }, }, }, - }, + }, ); sub login : Global { @@ -117,7 +117,7 @@ Delegates the user lookup to L =head2 file The path to the htpasswd file. If the path starts with a slash, then it is assumed to be a fully -qualified path, otherwise the path is fed through C<< $c->path_to >> and so normalised to the +qualified path, otherwise the path is fed through C<< $c->path_to >> and so normalised to the application root. Alternatively, it is possible to pass in an L object here, and this will be diff --git a/lib/Catalyst/Authentication/Store/Htpasswd/User.pm b/lib/Catalyst/Authentication/Store/Htpasswd/User.pm index f0d5eaa..05573b1 100644 --- a/lib/Catalyst/Authentication/Store/Htpasswd/User.pm +++ b/lib/Catalyst/Authentication/Store/Htpasswd/User.pm @@ -54,11 +54,11 @@ sub roles { sub AUTOLOAD { my $self = shift; - + ( my $method ) = ( our $AUTOLOAD =~ /([^:]+)$/ ); return if $method eq "DESTROY"; - + $self->_user->$method; } @@ -79,7 +79,7 @@ object stringifies to the username. =head2 new($store,$user) -Creates a new object from a store object, normally an instance of +Creates a new object from a store object, normally an instance of L, and a user object, normally an instance of L. diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index 8d01794..bd31bf0 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -22,7 +22,7 @@ __PACKAGE__->config( }, }, }, - }, + }, ); __PACKAGE__->setup; diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm index e3860a1..6232e72 100644 --- a/t/lib/TestApp/Controller/Root.pm +++ b/t/lib/TestApp/Controller/Root.pm @@ -7,11 +7,11 @@ __PACKAGE__->config(namespace => q{}); use base 'Catalyst::Controller'; # your actions replace this one -sub default : Private { +sub default : Private { my ($self, $c) = @_; my $body = ''; if ($c->authenticate({ username => 'mufasa', password => 'Circle of Life'})) { - $body .= "Authenticated:"; + $body .= "Authenticated:"; $body .= $c->user->id; } $c->res->body($body); diff --git a/t/lib/script/testapp_server.pl b/t/lib/script/testapp_server.pl index 701d39f..3160586 100644 --- a/t/lib/script/testapp_server.pl +++ b/t/lib/script/testapp_server.pl @@ -1,10 +1,10 @@ #!/usr/bin/env perl -BEGIN { +BEGIN { $ENV{CATALYST_ENGINE} ||= 'HTTP'; $ENV{CATALYST_SCRIPT_GEN} = 31; require Catalyst::Engine::HTTP; -} +} use strict; use warnings; @@ -40,7 +40,7 @@ GetOptions( 'restartregex|rr=s' => \$restart_regex, 'restartdirectory=s' => \$restart_directory, 'daemon' => \$background, - 'pidfile=s' => \$pidfile, + 'pidfile=s' => \$pidfile, ); pod2usage(1) if $help; @@ -65,7 +65,7 @@ TestApp->run( $port, $host, { restart_regex => qr/$restart_regex/, restart_directory => $restart_directory, background => $background, - pidfile => $pidfile, + pidfile => $pidfile, } ); 1;