dzilified this dist

[catagits/Catalyst-Authentication-Store-Htpasswd.git] / lib / Catalyst / Authentication / Store / Htpasswd.pm

diff --git a/lib/Catalyst/Authentication/Store/Htpasswd.pm b/lib/Catalyst/Authentication/Store/Htpasswd.pm
index 5fecc4a..b07f522 100644 (file)
--- a/lib/Catalyst/Authentication/Store/Htpasswd.pm
+++ b/lib/Catalyst/Authentication/Store/Htpasswd.pm
@@ -1,15 +1,17 @@
 #!/usr/bin/perl
 
 package Catalyst::Authentication::Store::Htpasswd;
+# ABSTRACT: Authen::Htpasswd based user storage/authentication
+
 use base qw/Class::Accessor::Fast/;
 use strict;
 use warnings;
 
-use Authen::Htpasswd;
+use Authen::Htpasswd 0.13;
 use Catalyst::Authentication::Store::Htpasswd::User;
 use Scalar::Util qw/blessed/;
 
-our $VERSION = '1.002';
+our $VERSION = '1.005';
 
 BEGIN { __PACKAGE__->mk_accessors(qw/file user_field user_class/) }
 
@@ -55,11 +57,6 @@ __END__
 
 =pod
 
-=head1 NAME
-
-Catalyst::Authentication::Store::Htpasswd - Authen::Htpasswd based
-user storage/authentication.
-
 =head1 SYNOPSIS
 
     use Catalyst qw/
@@ -119,15 +116,15 @@ Delegates the user lookup to C<< 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
+Alternatively, it is possible to pass in an L<Authen::Htpasswd> object here, and this will be
 used as the htpasswd file.
 
 =head2 user_class
 
-Change the user class which this store returns. Defaults to L< Catalyst::Authentication::Store::Htpasswd::User >.
+Change the user class which this store returns. Defaults to L<Catalyst::Authentication::Store::Htpasswd::User>.
 This can be used to add additional functionality to the user class by sub-classing it, but will not normally be
 needed.
 
@@ -149,24 +146,8 @@ Example:
     # Later in your code
     $c->authenticate({ email_address => $c->req->param("email"), password => $c->req->param("password") });
 
-=head1 AUTHORS
-
-Yuval Kogman C<<nothingmuch@woobling.org>>
-
-David Kamholz C<<dkamholz@cpan.org>>
-
-Tomas Doran C<<bobtfish@bobtfish.net>>
-
 =head1 SEE ALSO
 
 L<Authen::Htpasswd>.
 
-=head1 COPYRIGHT & LICENSE
-
-       Copyright (c) 2005-2008 the aforementioned authors. All rights
-       reserved. This program is free software; you can redistribute
-       it and/or modify it under the same terms as Perl itself.
-
 =cut
-
-