whitespace fixes
Karen Etheridge [Mon, 3 Jul 2017 19:29:19 +0000 (12:29 -0700)]
Changes
dist.ini
lib/Catalyst/Authentication/Store/Htpasswd.pm
lib/Catalyst/Authentication/Store/Htpasswd/User.pm
t/lib/TestApp.pm
t/lib/TestApp/Controller/Root.pm
t/lib/script/testapp_server.pl

diff --git a/Changes b/Changes
index c6df791..f23bcbd 100644 (file)
--- 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
index 4d04bca..353a684 100644 (file)
--- 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
index 429183a..090f6e3 100644 (file)
@@ -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<find_user|/find_user>
 =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<Authen::Htpasswd> object here, and this will be
index f0d5eaa..05573b1 100644 (file)
@@ -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<Catalyst::Plugin::Authentication::Store::Htpasswd::Backend>, and a user object,
 normally an instance of L<Authen::Htpasswd::User>.
 
index 8d01794..bd31bf0 100644 (file)
@@ -22,7 +22,7 @@ __PACKAGE__->config(
                 },
             },
         },
-    },   
+    },
 );
 
 __PACKAGE__->setup;
index e3860a1..6232e72 100644 (file)
@@ -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);
index 701d39f..3160586 100644 (file)
@@ -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;