File Coverage

blib/lib/Net/OAuth2Server/TokenType.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1 2     2   56997 use strict; use warnings;
  2     2   13  
  2         47  
  2         8  
  2         4  
  2         75  
2              
3             package Net::OAuth2Server::TokenType;
4              
5             our $VERSION = '0.002';
6              
7 2     2   10 use constant ();
  2         2  
  2         31  
8 2     2   9 use Exporter ();
  2         2  
  2         192  
9              
10             our %TOKEN_TYPE = (
11             TOKEN_TYPE_JWT => 'urn:ietf:params:oauth:token-type:jwt',
12             TOKEN_TYPE_ACCESS_TOKEN => 'urn:ietf:params:oauth:token-type:access_token',
13             TOKEN_TYPE_REFRESH_TOKEN => 'urn:ietf:params:oauth:token-type:refresh_token',
14             TOKEN_TYPE_ID_TOKEN => 'urn:ietf:params:oauth:token-type:id_token',
15             TOKEN_TYPE_SAML1 => 'urn:ietf:params:oauth:token-type:saml1',
16             TOKEN_TYPE_SAML2 => 'urn:ietf:params:oauth:token-type:saml2',
17             );
18              
19             constant->import( \%TOKEN_TYPE );
20             *import = \&Exporter::import;
21             our @EXPORT_OK = sort keys %TOKEN_TYPE;
22              
23             1;