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

use strict; use warnings;

package Net::OAuth2Server::Request::Resource;
our $VERSION = '0.006';

use parent 'Net::OAuth2Server::Request';

sub allowed_methods       { $_[0]->method } # accept whatever the method is
sub accepted_auth         { 'Bearer' }
sub required_parameters   { 'access_token' }
sub confidential_parameters { 'access_token' }

sub get_grant {
	my ( $self, $grant_maker ) = ( shift, shift );
	return if $self->error;
	$grant_maker->from_bearer_token( $self, $self->param( 'access_token' ), @_ )
		or ( $self->error || $self->set_error_invalid_token, return );
}

1;