LWP-Authen-OAuth2
view release on metacpan or search on metacpan
lib/LWP/Authen/OAuth2/ServiceProvider.pm view on Meta::CPAN
}
bless $self, $class->client_type_class($client_type);
}
$self->init($opts);
}
sub init {
my ($self, $opts) = @_;
# Now let us consume options. 2 args = required, 3 = defaulted.
# In general subclasses should Just Work.
# need to read this first, since the later opts depend on it
$self->copy_option($opts, 'use_test_urls') if defined $opts->{use_test_urls};
# These are required, NOT provided by this class, but are by subclasses.
for my $field (qw(token_endpoint authorization_endpoint)) {
if ($self->can($field)) {
$self->copy_option($opts, $field, $self->$field);
}
( run in 0.242 second using v1.01-cache-2.11-cpan-0d8aa00de5b )