Commit | Line | Data |
e8a7c384 |
1 | #!/usr/bin/perl |
2 | |
3 | package Catalyst::Plugin::Authentication::Store::Htpasswd::User; |
4 | use base qw/Catalyst::Plugin::Authentication::User Class::Accessor::Fast/; |
5 | |
6 | use strict; |
7 | use warnings; |
8 | |
9 | BEGIN { __PACKAGE__->mk_accessors(qw/file name/) } |
10 | |
11 | sub new { |
12 | my ( $class, $name, $file ) = @_; |
13 | |
14 | bless { |
15 | name => $name, |
16 | file => $file, |
17 | }, $class; |
18 | } |
19 | |
20 | sub supported_features { |
21 | return { |
22 | password => { |
23 | self_check => 1, |
24 | } |
25 | }; |
26 | } |
27 | |
28 | sub check_password { |
29 | my ( $self, $password ) = @_; |
30 | |
31 | return $self->file->htCheckPassword( $self->name, $password ); |
32 | } |
33 | |
34 | sub roles { |
35 | my $self = shift; |
36 | split( ",", $self->info_string ); |
37 | } |
38 | |
39 | sub info_string { |
40 | my $self = shift; |
41 | $self->file->fetchInfo( $self->name ); |
42 | } |
43 | |
44 | __PACKAGE__; |
45 | |
46 | __END__ |
47 | |
48 | =pod |
49 | |
50 | =head1 NAME |
51 | |
52 | Catalyst::Plugin::Authentication::Store::Htpasswd::User - A user object |
53 | representing an entry in an htpasswd file. |
54 | |
55 | =head1 SYNOPSIS |
56 | |
57 | use Catalyst::Plugin::Authentication::Store::Htpasswd::User; |
58 | |
59 | =head1 DESCRIPTION |
60 | |
61 | =cut |
62 | |
63 | |