X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FPlugin%2FAuthentication%2FStore%2FHtpasswd%2FUser.pm;h=438f31ae25eb273d63d486e66a0417d15be754a1;hb=8fade176102cab08f9ad5bd34bf435b246acb89c;hp=ce4388a9d0e1f078da76d5a1296c89c5c94bf8dc;hpb=039544ff7e03ea53d05dab5e7dcf6cdb3122f886;p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git diff --git a/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/User.pm b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/User.pm index ce4388a..438f31a 100644 --- a/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/User.pm +++ b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/User.pm @@ -8,37 +8,45 @@ use warnings; BEGIN { __PACKAGE__->mk_accessors(qw/user store/) } -use overload '""' => sub { shift->user->username }; +use overload '""' => sub { shift->id }, fallback => 1; sub new { my ( $class, $store, $user ) = @_; + return unless $user; + bless { store => $store, user => $user }, $class; } +sub id { + my $self = shift; + return $self->user->username; +} + sub supported_features { return { password => { self_check => 1, }, session => 1 + roles => 1, }; } sub check_password { my ( $self, $password ) = @_; - return $self->user->check_password( $password ); } sub roles { my $self = shift; - split( ",", $self->user->extra_info ); + my $field = $self->user->extra_info->[0]; + return defined $field ? split /,/, $field : (); } sub for_session { my $self = shift; - return $self->user->username; + return $self->id; } sub AUTOLOAD { @@ -62,11 +70,39 @@ __END__ Catalyst::Plugin::Authentication::Store::Htpasswd::User - A user object representing an entry in an htpasswd file. -=head1 SYNOPSIS +=head1 DESCRIPTION - use Catalyst::Plugin::Authentication::Store::Htpasswd::User; +This object wraps an L object. An instance of it will be returned +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. -=head1 DESCRIPTION +=head1 METHODS + +=head2 new($store,$user) + +Creates a new object from a store object, normally an instance of +L, and a user object, +normally an instance of L. + +=head2 id + +Returns the username. + +=head2 check_password($password) + +Returns whether the password is valid. + +=head2 roles + +Returns an array of roles, which is extracted from a comma-separated list in the +third field of the htpasswd file. + +=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