File Coverage

blib/lib/Net/OAuth2Server/TokenExchange.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 5 6 83.3
pod n/a
total 20 22 90.9


line stmt bran cond sub pod time code
1 1     1   373 use strict; use warnings;
  1     1   2  
  1         23  
  1         4  
  1         1  
  1         45  
2              
3             package Net::OAuth2Server::TokenExchange;
4             our $VERSION = '0.004';
5              
6 1     1   369 use Net::OAuth2Server::Request::Token::TokenExchange ();
  1         2  
  1         39  
7              
8             package Net::OAuth2Server::Response::Role::TokenExchange;
9             our $VERSION = '0.004';
10              
11 1     1   495 use Role::Tiny;
  1         3636  
  1         7  
12 1     1   1197 use Class::Method::Modifiers 'fresh';
  1         1438  
  1         95  
13              
14 0     0     sub fresh__add_issued_token_type { shift->add( issued_token_type => @_ ) }
15             fresh add_issued_token_type => \&fresh__add_issued_token_type;
16             undef *fresh__add_issued_token_type;
17              
18             1;
19              
20             __END__