use base qw/Class::Accessor::Fast Class::Data::Inheritable/;
-BEGIN {
- __PACKAGE__->mk_accessors(qw/_user/);
-}
+__PACKAGE__->mk_accessors(qw/_user/);
use strict;
use warnings;
use Class::Inspector;
use Catalyst::Authentication::Realm;
-our $VERSION = "0.100092";
+our $VERSION = "0.100092_01";
sub set_authenticated {
my ( $c, $user, $realmname ) = @_;
$c->_user( my $user = $realm->restore_user( $c, $frozen_user ) );
# this sets the realm the user originated in.
- $user->auth_realm($realm->name);
+ $user->auth_realm($realm->name) if $user;
return $user;