/usr/share/perl5/Catalyst/Plugin/Authentication/Store/Minimal.pm is in libcatalyst-plugin-authentication-perl 0.10023-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | package Catalyst::Plugin::Authentication::Store::Minimal;
use strict;
use warnings;
use MRO::Compat;
use Catalyst::Authentication::Store::Minimal ();
## 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( Catalyst::Authentication::Store::Minimal->new( $cfg, $c ) ) if $cfg;
$c->next::method(@_);
}
foreach my $method (qw/ get_user user_supports find_user from_session /) {
no strict 'refs';
*{$method} = sub { __PACKAGE__->default_auth_store->$method( @_ ) };
}
__PACKAGE__;
__END__
=pod
=head1 NAME
Catalyst::Plugin::Authentication::Store::Minimal - Compatibility shim
=head1 DESCRIPTION
THIS IS A COMPATIBILITY SHIM. It allows old configurations of Catalyst
Authentication to work without code changes.
B<DO NOT USE IT IN ANY NEW CODE!>
Please see L<Catalyst::Authentication::Store::Minimal> for more information.
=head1 METHODS
=over
=item find_user
=item from_session
=item get_user
=item setup
=item user_supports
=back
=cut
|