X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAuthentication%2FStore%2FHtpasswd.pm;h=1007b3494355be3507788ed3c45376f7096c1d47;hb=8f6952664282a3b1405d96e532c608665a15be6e;hp=429183ae581b21023ffbe9d08c3acf60c93a5494;hpb=12087068e1b354ce3a1221645ea3e36467437f9e;p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git diff --git a/lib/Catalyst/Authentication/Store/Htpasswd.pm b/lib/Catalyst/Authentication/Store/Htpasswd.pm index 429183a..1007b34 100644 --- a/lib/Catalyst/Authentication/Store/Htpasswd.pm +++ b/lib/Catalyst/Authentication/Store/Htpasswd.pm @@ -11,13 +11,13 @@ use Authen::Htpasswd 0.13; use Catalyst::Authentication::Store::Htpasswd::User; use Scalar::Util qw/blessed/; -our $VERSION = '1.006'; +our $VERSION = '1.007'; 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 { @@ -91,7 +91,7 @@ __END__ =head1 DESCRIPTION This plugin uses L to let your application use C<< .htpasswd >> -files for it's authentication storage. +files for its authentication storage. =head1 METHODS @@ -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