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 store/) }
11 use overload '""' => sub { shift->user->username };
14 my ( $class, $store, $user ) = @_;
16 bless { store => $store, 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;
47 ( my $method ) = ( our $AUTOLOAD =~ /([^:]+)$/ );
49 return if $method eq "DESTROY";
62 Catalyst::Plugin::Authentication::Store::Htpasswd::User - A user object
63 representing an entry in an htpasswd file.
67 use Catalyst::Plugin::Authentication::Store::Htpasswd::User;