| line |
true |
false |
branch |
|
92
|
2 |
41 |
unless defined $header and length $header |
|
99
|
0 |
85 |
unless defined $type and length $type |
|
109
|
27 |
1 |
if ($param =~ /^q\s*=\s*(-?[0-9.]+)$/i) |
|
111
|
1 |
26 |
if $quality > 1 |
|
112
|
1 |
26 |
if $quality < 0 |
|
124
|
30 |
20 |
if $cmp |
|
140
|
3 |
42 |
if $type eq "*/*" |
|
141
|
3 |
39 |
if $type =~ m[^[^/]+/\*$] |
|
160
|
1 |
10 |
unless $supported and @$supported |
|
171
|
0 |
14 |
if $quality == 0 |
|
174
|
8 |
11 |
if ($class->type_matches($normalized[$i], $type)) |
|
201
|
18 |
65 |
if $type eq $pattern |
|
204
|
7 |
58 |
if $pattern eq "*/*" |
|
207
|
7 |
51 |
if ($pattern =~ m[^([^/]+)/\*$]) |
|
209
|
5 |
2 |
if $type =~ m[^\Q$major\E/] |
|
247
|
27 |
32 |
if $type =~ m[/] |
|
271
|
1 |
29 |
if $quality == 0 |
|
275
|
9 |
20 |
if $class->type_matches($type, $pattern) |
|
276
|
4 |
16 |
if $class->type_matches($pattern, $type) |
|
307
|
5 |
4 |
if ($class->type_matches($type, $pattern)) |
|
309
|
4 |
1 |
if ($spec > $best_specificity or $spec == $best_specificity and $quality > $best_quality) |