line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package HTTP::Headers::ActionPack::AuthenticationInfo; |
2
|
|
|
|
|
|
|
BEGIN { |
3
|
3
|
|
|
3
|
|
69389
|
$HTTP::Headers::ActionPack::AuthenticationInfo::AUTHORITY = 'cpan:STEVAN'; |
4
|
|
|
|
|
|
|
} |
5
|
|
|
|
|
|
|
{ |
6
|
|
|
|
|
|
|
$HTTP::Headers::ActionPack::AuthenticationInfo::VERSION = '0.09'; |
7
|
|
|
|
|
|
|
} |
8
|
|
|
|
|
|
|
# ABSTRACT: The Authentication-Info Header |
9
|
|
|
|
|
|
|
|
10
|
3
|
|
|
3
|
|
26
|
use strict; |
|
3
|
|
|
|
|
4
|
|
|
3
|
|
|
|
|
96
|
|
11
|
3
|
|
|
3
|
|
16
|
use warnings; |
|
3
|
|
|
|
|
5
|
|
|
3
|
|
|
|
|
121
|
|
12
|
|
|
|
|
|
|
|
13
|
3
|
|
|
|
|
22
|
use HTTP::Headers::ActionPack::Util qw[ |
14
|
|
|
|
|
|
|
join_header_params |
15
|
3
|
|
|
3
|
|
3121
|
]; |
|
3
|
|
|
|
|
8
|
|
16
|
|
|
|
|
|
|
|
17
|
3
|
|
|
3
|
|
2980
|
use parent 'HTTP::Headers::ActionPack::Core::BaseHeaderWithParams'; |
|
3
|
|
|
|
|
822
|
|
|
3
|
|
|
|
|
21
|
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
sub BUILDARGS { |
20
|
4
|
|
|
4
|
1
|
5
|
my $class = shift; |
21
|
4
|
|
|
|
|
29
|
$class->_prepare_params( @_ ) |
22
|
|
|
|
|
|
|
} |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
sub new_from_string { |
25
|
2
|
|
|
2
|
1
|
85
|
my ($class, $header_string) = @_; |
26
|
6
|
|
|
|
|
176
|
$class->new( |
27
|
2
|
|
|
|
|
14
|
map { @$_ } HTTP::Headers::Util::_split_header_words( $header_string ) |
28
|
|
|
|
|
|
|
); |
29
|
|
|
|
|
|
|
} |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
sub as_string { |
32
|
4
|
|
|
4
|
1
|
1416
|
join_header_params( ', ' => (shift)->params_in_order ); |
33
|
|
|
|
|
|
|
} |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
1; |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
__END__ |