}
sub get_user {
- my ( $c, $uid ) = @_;
+ my ( $c, $uid, @rest ) = @_;
if ( my $store = $c->default_auth_store ) {
- return $store->get_user($uid);
+ return $store->get_user( $uid, @rest );
}
else {
Catalyst::Exception->throw(
use Digest ();
sub login {
- my ( $c, $user, $password ) = @_;
+ my ( $c, $user, $password, @rest ) = @_;
for ( $c->request ) {
unless ( $user ||= $_->param("login")
unless ( Scalar::Util::blessed($user)
and $user->isa("Catalyst::Plugin::Authentication::User") )
{
- if ( my $user_obj = $c->get_user($user) ) {
+ if ( my $user_obj = $c->get_user( $user, $password, @rest ) ) {
$user = $user_obj;
}
else {