File Coverage

blib/lib/Net/OAuth2Server/Request/Resource.pm
Criterion Covered Total %
statement 9 16 56.2
branch 0 4 0.0
condition 0 3 0.0
subroutine 3 8 37.5
pod 0 5 0.0
total 12 36 33.3


line stmt bran cond sub pod time code
1 1     1   878 use strict; use warnings;
  1     1   2  
  1         29  
  1         4  
  1         2  
  1         37  
2              
3             package Net::OAuth2Server::Request::Resource;
4 1     1   5 use parent 'Net::OAuth2Server::Request';
  1         2  
  1         4  
5              
6 0     0 0   sub allowed_methods { $_[0]->method } # accept whatever the method is
7 0     0 0   sub accepted_auth { 'Bearer' }
8 0     0 0   sub required_parameters { 'access_token' }
9 0     0 0   sub confidential_parameters { 'access_token' }
10              
11             sub get_grant {
12 0     0 0   my ( $self, $grant_maker ) = ( shift, shift );
13 0 0         return if $self->error;
14 0 0 0       $grant_maker->from_bearer_token( $self, $self->param( 'access_token' ), @_ )
15             or ( $self->error || $self->set_error_invalid_token, return );
16             }
17              
18             our $VERSION = '0.005';