| line |
true |
false |
branch |
|
19
|
2 |
3 |
unless (defined $request) |
|
22
|
0 |
2 |
if $ENV{'HTTP_ACCEPT'} |
|
24
|
0 |
2 |
if $ENV{'HTTP_ACCEPT_CHARSET'} |
|
26
|
0 |
2 |
if $ENV{'HTTP_ACCEPT_ENCODING'} |
|
28
|
2 |
0 |
if $ENV{'HTTP_ACCEPT_LANGUAGE'} |
|
46
|
5 |
2 |
if ($key =~ s/^Accept-//) { } |
|
|
2 |
0 |
elsif ($key eq 'Accept') { } |
|
60
|
5 |
7 |
if ($name =~ s/;(.*)//) |
|
67
|
4 |
8 |
if (defined $param{'q'}) { } |
|
68
|
0 |
4 |
if $param{'q'} > 1 |
|
69
|
0 |
4 |
if $param{'q'} < 0 |
|
87
|
5 |
0 |
if ($$var[5]) |
|
93
|
2 |
3 |
if ($DEBUG) |
|
112
|
4 |
12 |
unless defined $qs |
|
113
|
1 |
15 |
unless defined $ct |
|
114
|
7 |
9 |
unless defined $bs |
|
115
|
12 |
4 |
if $lang |
|
116
|
7 |
9 |
if ($DEBUG) |
|
119
|
0 |
7 |
if $enc and not ref $enc |
|
120
|
0 |
7 |
if $enc and ref $enc |
|
121
|
0 |
7 |
if $cs |
|
122
|
6 |
1 |
if $lang |
|
123
|
0 |
7 |
if $bs |
|
135
|
2 |
14 |
if (exists $accept{'encoding'} and $enc) |
|
136
|
1 |
1 |
ref $enc ? : |
|
138
|
0 |
2 |
if $DEBUG |
|
139
|
1 |
1 |
if (not exists $accept{'encoding'}{$_}) { } |
|
140
|
0 |
1 |
if $DEBUG |
|
145
|
0 |
1 |
if $DEBUG |
|
159
|
2 |
1 |
if (exists $accept{'charset'} and $cs and $cs ne 'us-ascii') |
|
160
|
1 |
1 |
unless $accept{'charset'}{$cs} |
|
165
|
8 |
8 |
if ($lang and exists $accept{'language'}) { } |
|
166
|
0 |
8 |
ref $lang ? : |
|
173
|
4 |
4 |
unless exists $accept{'language'}{$_} |
|
175
|
4 |
0 |
unless defined $q |
|
176
|
0 |
4 |
if $this_q > $q |
|
178
|
4 |
4 |
if (defined $q) { } |
|
179
|
3 |
1 |
if $DEBUG |
|
187
|
3 |
1 |
if $DEBUG |
|
190
|
1 |
7 |
if (index($al, "$lang-") == 0) { } |
|
194
|
1 |
0 |
if $DEBUG |
|
195
|
1 |
0 |
unless defined $selected |
|
196
|
0 |
1 |
if length $al > length $selected |
|
199
|
5 |
2 |
if $DEBUG |
|
202
|
1 |
3 |
if $selected |
|
208
|
3 |
1 |
unless defined $q |
|
213
|
2 |
6 |
if $any_lang and exists $accept{'language'} |
|
226
|
3 |
13 |
if (exists $accept{'type'} and $ct) |
|
230
|
1 |
2 |
if $ct =~ s/;(.*)// |
|
244
|
0 |
9 |
if $DEBUG |
|
247
|
4 |
5 |
if $at_type ne '*' and $at_type ne $type |
|
248
|
1 |
4 |
if $at_subtype ne '*' and $at_subtype ne $subtype |
|
250
|
4 |
0 |
if $at_type ne '*' |
|
251
|
2 |
2 |
if $at_subtype ne '*' |
|
254
|
0 |
1 |
if $DEBUG |
|
255
|
1 |
0 |
unless exists $accept{'type'}{$at}{$pk} |
|
257
|
0 |
0 |
unless $accept{'type'}{$at}{$pk} eq $pv |
|
258
|
0 |
0 |
if $DEBUG |
|
261
|
0 |
4 |
if $DEBUG |
|
264
|
4 |
0 |
if (not defined $sel_q or $sel_specificness < $specificness) |
|
275
|
15 |
1 |
if (not defined $mbx or $mbx >= $bs) { } |
|
280
|
0 |
1 |
if $DEBUG |
|
283
|
7 |
9 |
if ($DEBUG) |
|
284
|
7 |
0 |
unless defined $mbx |
|
293
|
0 |
15 |
unless $$b[1] <=> $$a[1] |
|
295
|
2 |
3 |
if wantarray |
|
296
|
0 |
3 |
unless @Q |
|
297
|
0 |
3 |
if $Q[0][1] == 0 |