File Coverage

blib/lib/OpenID/Lite/Constants/SessionType.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


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