| line |
true |
false |
branch |
|
27
|
38 |
151 |
if (&blessed($args[0]) and $args[0]->isa('HTTP::Headers::Fancy')) { } |
|
|
18 |
133 |
elsif (defined $args[0] and not ref $args[0] and $args[0] eq 'HTTP::Headers::Fancy') { } |
|
41
|
2 |
4 |
if (ref $args[0]) |
|
46
|
4 |
4 |
if (ref $hash{$key}) |
|
63
|
1 |
1 |
@args == 1 ? : |
|
66
|
12 |
2 |
if ($old ne $new) |
|
70
|
1 |
1 |
wantarray ? : |
|
84
|
1 |
5 |
@args == 1 ? : |
|
86
|
0 |
34 |
unless defined $headers{$old} |
|
88
|
30 |
4 |
if ($old ne $new) |
|
92
|
5 |
1 |
wantarray ? : |
|
97
|
2 |
18 |
unless defined $value |
|
98
|
1 |
17 |
if (ref $value eq 'HASH') |
|
118
|
0 |
11 |
unless defined $value |
|
119
|
1 |
10 |
if (ref $value eq 'HASH') |
|
132
|
7 |
10 |
$+{'weak'} ? : |
|
139
|
4 |
11 |
if (ref $args[0] eq 'HASH') |
|
151
|
8 |
4 |
$data{$_} =~ /[=,]/ ? : |
|
|
12 |
5 |
defined $data{$_} ? : |
|
160
|
6 |
9 |
if (ref $args[0] eq 'ARRAY') |
|
163
|
8 |
17 |
ref $_ ? : |
|
173
|
2 |
4 |
unless @_ |
|
174
|
2 |
2 |
if (@_ > 1) { } |
|
|
2 |
0 |
elsif (ref $_[0] eq 'HASH') { } |
|
187
|
0 |
0 |
unless @_ |
|
188
|
0 |
0 |
if (@_ > 1) { } |
|
|
0 |
0 |
elsif (ref $_[0] eq 'HASH') { } |
|
201
|
1 |
4 |
unless @_ |
|
203
|
2 |
2 |
if ($val =~ m[^ \s* ( W/ ) ? " ]six) { } |
|
|
1 |
1 |
elsif (not ref $val) { } |
|
|
1 |
0 |
elsif (ref $val eq 'HASH') { } |
|
211
|
0 |
3 |
unless $val->{$key} |
|
212
|
2 |
1 |
if ($val->{$key} =~ m[^ \s* ( W/ )? " ]six) { } |
|
225
|
3 |
4 |
if (ref $_[0] eq 'HASH') { } |
|
|
3 |
1 |
elsif (ref $_[0] eq 'ARRAY') { } |