File Coverage

blib/lib/OpenID/Lite/Constants/AssocType.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package OpenID::Lite::Constants::AssocType;
2              
3 4     4   25 use strict;
  4         6  
  4         148  
4 4     4   1538 use warnings;
  4         8  
  4         118  
5              
6 4     4   20 use base 'Exporter';
  4         8  
  4         664  
7              
8             our %EXPORT_TAGS = ( all => [qw(HMAC_SHA1 HMAC_SHA256)] );
9             our @EXPORT_OK = map {@$_} values %EXPORT_TAGS;
10              
11 4     4   35 use constant HMAC_SHA1 => 'HMAC-SHA1';
  4         7  
  4         233  
12 4     4   22 use constant HMAC_SHA256 => 'HMAC-SHA256';
  4         8  
  4         217  
13              
14             1;
15              
16             =head1 NAME
17              
18             OpenID::Lite::Constants::AssocType - association type constants
19              
20             =head1 SYNOPSIS
21              
22             use OpenID::Lite::Constants::AssocType qw(:all);
23              
24             or
25              
26             use OpenID::Lite::Constants::AssocType qw(HMAC-SHA1 HMAC-SHA256);
27              
28             =head1 DESCRIPTION
29              
30             This class provides constatns for each association type.
31              
32             =head1 AUTHOR
33              
34             Lyo Kato, Elyo.kato@gmail.comE
35              
36             =head1 COPYRIGHT AND LICENSE
37              
38             Copyright (C) 2009 by Lyo Kato
39              
40             This library is free software; you can redistribute it and/or modify
41             it under the same terms as Perl itself, either Perl version 5.8.8 or,
42             at your option, any later version of Perl 5 you may have available.
43              
44             =cut