3 package Catalyst::Plugin::Authentication::Store::Htpasswd::User;
4 use base qw/Catalyst::Plugin::Authentication::User Class::Accessor::Fast/;
9 BEGIN { __PACKAGE__->mk_accessors(qw/user/) }
11 use overload '""' => sub { shift->user->username };
14 my ( $class, $user ) = @_;
16 bless { user => $user }, $class;
19 sub supported_features {
29 my ( $self, $password ) = @_;
31 return $self->user->check_password( $password );
36 split( ",", $self->user->extra_info );
41 return $self->user->username;
45 my ($class,$c,$user) = @_;
57 Catalyst::Plugin::Authentication::Store::Htpasswd::User - A user object
58 representing an entry in an htpasswd file.
62 use Catalyst::Plugin::Authentication::Store::Htpasswd::User;