view release on metacpan or  search on metacpan

lib/Authen/Pluggable.pm  view on Meta::CPAN

has '_providers' => sub { return {} };
has 'log';

sub AUTOLOAD ($s) {
    our $AUTOLOAD;
    $AUTOLOAD =~ s/.*:://;
    return $s->_providers->{$AUTOLOAD};
}

sub provider($s, $provider, $plugin=undef) {
    $plugin //= $provider;
    my %v = (provider => $plugin);
    $s->_load_provider($provider, provider => $plugin)
        unless exists($s->_providers->{$provider});
    return $s->_providers->{$provider};
}

sub providers ( $s, @providers ) {
    foreach my $provider (@providers) {
        $provider = { $provider => undef } if (ref($provider) ne 'HASH');