File Coverage

blib/lib/OpenID/Lite/Constants/Namespace.pm
Criterion Covered Total %
statement 39 39 100.0
branch n/a
condition n/a
subroutine 13 13 100.0
pod n/a
total 52 52 100.0


line stmt bran cond sub pod time code
1             package OpenID::Lite::Constants::Namespace;
2              
3 4     4   24 use strict;
  4         10  
  4         160  
4 4     4   21 use warnings;
  4         9  
  4         134  
5              
6 4     4   22 use base 'Exporter';
  4         7  
  4         724  
7              
8             our %EXPORT_TAGS = (
9             all => [
10             qw(
11             SPEC_2_0
12             SPEC_1_0
13             XRDS
14             XRD_2_0
15             SERVER_2_0
16             SIGNON_2_0
17             SIGNON_1_1
18             SIGNON_1_0
19             IDENTIFIER_SELECT
20             RETURN_TO
21             )
22             ]
23             );
24             our @EXPORT_OK = map {@$_} values %EXPORT_TAGS;
25              
26 4     4   24 use constant SPEC_2_0 => q{http://specs.openid.net/auth/2.0};
  4         22  
  4         777  
27 4     4   25 use constant SPEC_1_0 => q{http://openid.net/xmlns/1.0};
  4         23  
  4         421  
28 4     4   23 use constant XRDS => q{xri://$xrds};
  4         8  
  4         205  
29 4     4   163 use constant XRD_2_0 => q{xri://$xrd*($v*2.0)};
  4         8  
  4         261  
30 4     4   22 use constant SERVER_2_0 => q{http://specs.openid.net/auth/2.0/server};
  4         6  
  4         1150  
31 4     4   22 use constant SIGNON_2_0 => q{http://specs.openid.net/auth/2.0/signon};
  4         8  
  4         199  
32 4     4   24 use constant SIGNON_1_1 => q{http://openid.net/signon/1.1};
  4         8  
  4         269  
33 4     4   21 use constant SIGNON_1_0 => q{http://openid.net/signon/1.0};
  4         7  
  4         188  
34              
35 4         191 use constant IDENTIFIER_SELECT =>
36 4     4   64 q{http://specs.openid.net/auth/2.0/identifier_select};
  4         8  
37              
38 4     4   20 use constant RETURN_TO => q{http://specs.openid.net/auth/2.0/return_to};
  4         7  
  4         276  
39              
40             1;
41              
42             =head1 NAME
43              
44             OpenID::Lite::Constants::Namespace - Namespace constants
45              
46             =head1 SYNOPSIS
47              
48             use OpenID::Lite::Constants::Namespace qw(:all);
49              
50             or
51              
52             use OpenID::Lite::Constants::Namespace qw(SPEC_2_0 SERVER_2_0 SIGNON_2_0);
53              
54             =head1 DESCRIPTION
55              
56             This class provides constants represents namespaces that
57             is for OpenID service type.
58              
59             =head1 CONSTANTS
60              
61             =head2 SPEC_2_0
62              
63             http://specs.openid.net/auth/2.0
64              
65             =head2 SPEC_1_0
66              
67             http://openid.net/xmlns/1.0
68              
69             =head2 XRDS
70              
71             xri://$xrds
72              
73             =head2 XRD_2_0
74              
75             xri://$xrd*($v*2.0)
76              
77             =head2 SERVER_2_0
78              
79             http://specs.openid.net/auth/2.0/server
80              
81             =head2 SIGNON_2_0
82              
83             use constant SIGNON_2_0 => q{http://specs.openid.net/auth/2.0/signon};
84              
85             =head2 SIGNON_1_1
86              
87             http://openid.net/signon/1.1
88              
89             =head2 SIGNON_1_0
90              
91             http://openid.net/signon/1.0
92              
93             =head2 IDENTIFIER_SELECT
94              
95             http://specs.openid.net/auth/2.0/identifier_select
96              
97             =head2 RETURN_TO
98              
99             http://specs.openid.net/auth/2.0/return_to
100              
101             =head1 AUTHOR
102              
103             Lyo Kato, Elyo.kato@gmail.comE
104              
105             =head1 COPYRIGHT AND LICENSE
106              
107             Copyright (C) 2009 by Lyo Kato
108              
109             This library is free software; you can redistribute it and/or modify
110             it under the same terms as Perl itself, either Perl version 5.8.8 or,
111             at your option, any later version of Perl 5 you may have available.
112              
113             =cut