| line |
true |
false |
branch |
|
21
|
0 |
4 |
unless blessed $action_pack and $action_pack->isa('HTTP::Headers::ActionPack') |
|
31
|
0 |
20 |
blessed $header ? : |
|
38
|
17 |
15 |
if $chosen |
|
90
|
3 |
29 |
if @$choices == 0 |
|
91
|
0 |
29 |
if $header eq '' |
|
93
|
0 |
29 |
blessed $header ? : |
|
98
|
59 |
0 |
$c ? : |
|
103
|
17 |
12 |
if ($default) |
|
107
|
6 |
11 |
if (not defined $default_priority) { } |
|
|
3 |
8 |
elsif ($default_priority == 0) { } |
|
108
|
1 |
5 |
if (defined $star_priority and $star_priority == 0) { } |
|
123
|
26 |
3 |
if (not defined $star_priority) { } |
|
|
1 |
2 |
elsif ($star_priority == 0) { } |
|
137
|
4 |
40 |
if $priority == 0 |
|
139
|
20 |
20 |
if (my $match = first(sub {
&$matcher($acceptable, $$_[1]);
}
, @canonical)) |
|
145
|
20 |
9 |
if $chosen |
|
147
|
1 |
8 |
if ($any_ok) |
|
150
|
1 |
1 |
unless defined $priority and $priority == 0 |
|
155
|
1 |
0 |
if $match |
|
158
|
4 |
4 |
if ($default and $default_ok) |
|
160
|
2 |
2 |
if ($match) |
|
162
|
2 |
0 |
unless defined $priority and $priority == 0 |
|
173
|
1 |
31 |
if $requested->matches_all |
|
179
|
19 |
8 |
unless lc $range eq lc $tag or $range eq '*' |