1 package App::EzPz::User;
3 use Authen::Htpasswd::User;
6 has _htpasswd_user => (
7 is => 'ro', init_arg => 'htpasswd_user', required => 1,
8 handles => [ qw(username password check_password) ],
11 around BUILDARGS => sub {
12 my ($orig, $self) = (shift, shift);
13 my $args = $self->$orig(@_);
14 $args->{htpasswd_user} ||=
15 Authen::Htpasswd::User->new(
16 delete @{$args}{qw(username password)}