my $user = $self->userhash->{$id};
- #print STDERR "FOO1! " . ref($user) . " - ". Scalar::Util::blessed($user) . "\n";
-
if ( ref($user) eq "HASH") {
$user->{id} ||= $id;
return bless $user, "Catalyst::Authentication::User::Hash";
$self->find_user({id => $id});
}
-## backwards compatibility
-sub setup {
- my $c = shift;
-
- ### If a user does 'use Catalyst qw/Authentication::Store::Minimal/'
- ### he will be proxied on to this setup routine (and only then --
- ### non plugins should NOT have their setup routine invoked!)
- ### Beware what we pass to the 'new' routine; it wants
- ### a config has with a top level key 'users'. New style
- ### configs do not have this, and split by realms. If we
- ### blindly pass this to new, we will 1) overwrite what we
- ### already passed and 2) make ->userhash undefined, which
- ### leads to:
- ### Can't use an undefined value as a HASH reference at
- ### lib/Catalyst/Authentication/Store/Minimal.pm line 38.
- ###
- ### So only do this compatibility call if:
- ### 1) we have a {users} config directive
- ###
- ### Ideally we could also check for:
- ### 2) we don't already have a ->userhash
- ### however, that's an attribute of an object we can't
- ### access =/ --kane
-
- my $cfg = $c->config->{'Plugin::Authentication'}->{users}
- ? $c->config->{'Plugin::Authentication'}
- : undef;
-
- $c->default_auth_store( __PACKAGE__->new( $cfg, $c ) ) if $cfg;
-
- $c->NEXT::setup(@_);
-}
-
__PACKAGE__;
__END__
Authentication
/;
- __PACKAGE__->config->{'Plugin::Authentication'} =
+ __PACKAGE__->config( 'Plugin::Authentication' =>
{
default_realm => 'members',
realms => {
}
}
}
- };
+ }
+ );
=head1 DESCRIPTION
=head2 get_user( )
+Deprecated
+
=head2 setup( )
=cut