File Coverage

lib/Plack/Middleware/OAuth/UserInfo.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	2	0.0
condition			n/a
subroutine	3	7	42.8
pod	2	4	50.0
total	14	34	41.1

package Plack::Middleware::OAuth::UserInfo;
use warnings;
use strict;
use Plack::Util::Accessor qw(token config);

sub new {
    my $class = shift;
    my %args = @_;
    bless \%args, $class;
}

# config: provider config hashref
# token:  access token object

sub create_inf {
    my ($self,$class) = @_;
    return $class->new( token => $self->token , config => $self->config );
}

sub ask {
    my ($self,$provider_name) = @_;
    if( $provider_name =~ m/^\+/ ) {
        my $info_class = Plack::Util::load_class( $provider_name );
        return $self->create_inf( $info_class )->query;
    } else {
        my $info_class = Plack::Util::load_class( $provider_name , __PACKAGE__ );
        return $self->create_inf( $info_class )->query;
    }
}

sub query { ... }

1;
__END__