[scpubgit/App-EzPz.git] / lib / App / EzPz / User.pm

package App::EzPz::User;

use Authen::Htpasswd::User;
use Moo;

has _htpasswd_user => (
  is => 'ro', init_arg => 'htpasswd_user', required => 1,
  handles => [ qw(username password check_password) ],
);

around BUILDARGS => sub {
  my ($orig, $self) = (shift, shift);
  my $args = $self->$orig(@_);
  $args->{htpasswd_user} ||=
    Authen::Htpasswd::User->new(
      delete @{$args}{qw(username password)}
    );
  return $args
};

1;
Commit	Line	Data
5b26866e	1	package App::EzPz::User;
	2
	3	use Authen::Htpasswd::User;
	4	use Moo;
	5
	6	has _htpasswd_user => (
	7	is => 'ro', init_arg => 'htpasswd_user', required => 1,
	8	handles => [ qw(username password check_password) ],
	9	);
	10
	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)}
	17	);
	18	return $args
	19	};
	20
	21	1;