-#!/usr/bin/perl
-
package Catalyst::Plugin::Authentication;
use base qw/Class::Accessor::Fast Class::Data::Inheritable/;
# constant->import(have_want => eval { require Want });
#}
-our $VERSION = "0.10001";
+our $VERSION = "0.10002";
sub set_authenticated {
my ( $c, $user, $realmname ) = @_;
$c->save_user_in_session($user, $realmname);
}
$user->auth_realm($realmname);
- $user->store(ref($c->auth_realms->{$realmname}{'store'}));
$c->NEXT::set_authenticated($user, $realmname);
}
# this sets the realm the user originated in.
$user->auth_realm($realmname);
- ## compatibility - some pre 0.10 store / credentials may need the store name,
- ## this is not used by the current api in any form.
- $user->store(ref($c->auth_realms->{$realmname}{'store'}));
-
+
return $user;
}