sub AUTOLOAD {
my $self = shift;
-
+
( my $method ) = ( our $AUTOLOAD =~ /([^:]+)$/ );
return if $method eq "DESTROY";
-
+
$self->_user->$method;
}
=head2 new($store,$user)
-Creates a new object from a store object, normally an instance of
+Creates a new object from a store object, normally an instance of
L<Catalyst::Plugin::Authentication::Store::Htpasswd::Backend>, and a user object,
normally an instance of L<Authen::Htpasswd::User>.