File Coverage

blib/lib/HTTP/Headers/ActionPack/AuthenticationInfo.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 3 3 100.0
total 30 30 100.0


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__