X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAuthentication%2FStore%2FHtpasswd%2FUser.pm;h=f0d5eaaa6f598bb7248196da7e378b669473e449;hb=12087068e1b354ce3a1221645ea3e36467437f9e;hp=01693d732631b2a7c15c5cb3bd1478a84574e81b;hpb=66a5688dde8d4265ef3c25f8e0371eba6a8eb536;p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git diff --git a/lib/Catalyst/Authentication/Store/Htpasswd/User.pm b/lib/Catalyst/Authentication/Store/Htpasswd/User.pm index 01693d7..f0d5eaa 100644 --- a/lib/Catalyst/Authentication/Store/Htpasswd/User.pm +++ b/lib/Catalyst/Authentication/Store/Htpasswd/User.pm @@ -1,12 +1,14 @@ #!/usr/bin/perl package Catalyst::Authentication::Store::Htpasswd::User; +# ABSTRACT: A user object representing an entry in an htpasswd file. + use base qw/Catalyst::Authentication::User Class::Accessor::Fast/; use strict; use warnings; -our $VERSION = '1.005'; +our $VERSION = '1.006'; BEGIN { __PACKAGE__->mk_accessors(qw/_user _store/) } @@ -66,15 +68,10 @@ __END__ =pod -=head1 NAME - -Catalyst::Authentication::Store::Htpasswd::User - A user object -representing an entry in an htpasswd file. - =head1 DESCRIPTION This object wraps an L object. An instance of it will be returned -by C<< $c->user >> when using L. Methods +by C<< $c->user >> when using L. Methods not defined in this module are passed through to the L object. The object stringifies to the username. @@ -83,7 +80,7 @@ object stringifies to the username. =head2 new($store,$user) Creates a new object from a store object, normally an instance of -L, and a user object, +L, and a user object, normally an instance of L. =head2 id @@ -111,20 +108,4 @@ Returns data about which featurs this user module supports. Returns the underlieing L object for this user -=head1 AUTHORS - -Yuval Kogman C - -David Kamholz C - -Tomas Doran C - -=head1 COPYRIGHT & LICENSE - - Copyright (c) 2005 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 - -