File Coverage

blib/lib/OpenID/Lite/Constants/ProviderResponseType.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package OpenID::Lite::Constants::ProviderResponseType;
2              
3 3     3   15 use base 'Exporter';
  3         5  
  3         358  
4              
5             our %EXPORT_TAGS = (
6             all => [
7             qw(
8             DIRECT
9             SETUP
10             REDIRECT
11             CHECKID_ERROR
12             POSITIVE_ASSERTION
13             REQUIRES_SETUP
14             )
15             ],
16             );
17             our @EXPORT_OK = map {@$_} values %EXPORT_TAGS;
18              
19 3     3   15 use constant DIRECT => 'direct';
  3         6  
  3         136  
20 3     3   13 use constant SETUP => 'setup';
  3         4  
  3         142  
21 3     3   14 use constant REDIRECT => 'redirect';
  3         4  
  3         137  
22 3     3   14 use constant CHECKID_ERROR => 'checkid_error';
  3         5  
  3         114  
23 3     3   14 use constant POSITIVE_ASSERTION => 'positive_assertion';
  3         5  
  3         131  
24 3     3   19 use constant REQUIRES_SETUP => 'requires_setup';
  3         6  
  3         141  
25              
26             1;
27