Update htpasswd store for registered stores

[catagits/Catalyst-Authentication-Store-Htpasswd.git] / lib / Catalyst / Plugin / Authentication / Store / Htpasswd / Backend.pm

diff --git a/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/Backend.pm b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/Backend.pm
index c048347..c5213b0 100644 (file)
--- a/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/Backend.pm
+++ b/lib/Catalyst/Plugin/Authentication/Store/Htpasswd/Backend.pm
@@ -19,7 +19,7 @@ sub new {
 
 sub get_user {
     my ( $self, $id ) = @_;
-    Catalyst::Plugin::Authentication::Store::Htpasswd::User->new( $self->file->lookup_user($id) );
+    Catalyst::Plugin::Authentication::Store::Htpasswd::User->new( $self, $self->file->lookup_user($id) );
 }
 
 sub user_supports {
@@ -29,6 +29,11 @@ sub user_supports {
     Catalyst::Plugin::Authentication::Store::Htpasswd::User->supports(@_);
 }
 
+sub from_session {
+       my ( $self, $c, $id ) = @_;
+       $self->get_user( $id );
+}
+
 __PACKAGE__;
 
 __END__