line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package OpenID::Lite::Constants::Yadis; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
7
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
38
|
|
4
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
29
|
|
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
|
6
|
use base 'Exporter'; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
151
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our %EXPORT_TAGS |
9
|
|
|
|
|
|
|
= ( all => [qw(XRDS_HEADER YADIS_HEADER XRDS_CONTENT_TYPE)] ); |
10
|
|
|
|
|
|
|
our @EXPORT_OK = map {@$_} values %EXPORT_TAGS; |
11
|
|
|
|
|
|
|
|
12
|
1
|
|
|
1
|
|
5
|
use constant XRDS_HEADER => q{X-XRDS-Location}; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
74
|
|
13
|
1
|
|
|
1
|
|
5
|
use constant YADIS_HEADER => q{X-Yadis-Location}; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
43
|
|
14
|
1
|
|
|
1
|
|
5
|
use constant XRDS_CONTENT_TYPE => q{application/xrds+xml}; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
59
|
|
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
1; |
17
|
|
|
|
|
|
|
|