File Coverage

blib/lib/Net/OAuth2Server/Request/Token/AuthorizationCode.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 2 0.0
condition n/a
subroutine 3 7 42.8
pod 0 4 0.0
total 12 28 42.8


line stmt bran cond sub pod time code
1 1     1   429 use strict; use warnings;
  1     1   2  
  1         26  
  1         5  
  1         2  
  1         46  
2              
3             package Net::OAuth2Server::Request::Token::AuthorizationCode;
4             our $VERSION = '0.006';
5              
6 1     1   5 use parent 'Net::OAuth2Server::Request';
  1         2  
  1         5  
7              
8 0     0 0   sub grant_type { 'authorization_code' }
9 0     0 0   sub allowed_methods { 'POST' }
10 0     0 0   sub grant_parameters { qw( code redirect_uri client_id client_secret ) }
11             *required_parameters = \&grant_parameters;
12              
13             sub get_grant {
14 0     0 0   my ( $self, $grant_maker ) = ( shift, shift );
15 0 0         return if $self->error;
16 0           $grant_maker->from_auth_code( $self, $self->params( $self->grant_parameters ), @_ );
17             }
18              
19             1;