X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FApp-EzPz.git;a=blobdiff_plain;f=lib%2FApp%2FEzPz%2FUser.pm;fp=lib%2FApp%2FEzPz%2FUser.pm;h=e3d843b178970ab1d4679dfd71735315d3b55cd8;hp=0000000000000000000000000000000000000000;hb=5b26866ea3dc1b51e669b9e213d002c05de81e14;hpb=9ec9210e002a02c473e947cc024e64ef216caba2

diff --git a/lib/App/EzPz/User.pm b/lib/App/EzPz/User.pm
new file mode 100644
index 0000000..e3d843b
--- /dev/null
+++ b/lib/App/EzPz/User.pm
@@ -0,0 +1,21 @@
+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;