| line |
true |
false |
branch |
|
93
|
2 |
36 |
unless defined $header and length $header |
|
100
|
0 |
75 |
unless defined $type and length $type |
|
110
|
27 |
1 |
if ($param =~ /^q\s*=\s*(-?[0-9.]+)$/i) |
|
112
|
1 |
26 |
if $quality > 1 |
|
113
|
1 |
26 |
if $quality < 0 |
|
125
|
30 |
15 |
if $cmp |
|
141
|
3 |
32 |
if $type eq "*/*" |
|
142
|
3 |
29 |
if $type =~ m[^[^/]+/\*$] |
|
161
|
1 |
10 |
unless $supported and @$supported |
|
172
|
0 |
14 |
if $quality == 0 |
|
175
|
8 |
11 |
if ($class->type_matches($normalized[$i], $type)) |
|
202
|
16 |
55 |
if $type eq $pattern |
|
205
|
6 |
49 |
if $pattern eq "*/*" |
|
208
|
6 |
43 |
if ($pattern =~ m[^([^/]+)/\*$]) |
|
210
|
4 |
2 |
if $type =~ m[^\Q$major\E/] |
|
248
|
22 |
32 |
if $type =~ m[/] |
|
272
|
1 |
22 |
if $quality == 0 |
|
276
|
7 |
15 |
if $class->type_matches($type, $pattern) |
|
277
|
2 |
13 |
if $class->type_matches($pattern, $type) |
|
308
|
5 |
4 |
if ($class->type_matches($type, $pattern)) |
|
310
|
4 |
1 |
if ($spec > $best_specificity or $spec == $best_specificity and $quality > $best_quality) |