| line |
true |
false |
branch |
|
58
|
0 |
3 |
if ($@) { } |
|
70
|
3 |
0 |
if ($@) { } |
|
94
|
0 |
34 |
if @_ and @_ & 1 |
|
101
|
1 |
29 |
unless $max_buffer >= $max_content + length($max_content) + 1 |
|
105
|
0 |
29 |
if scalar keys %params |
|
131
|
1 |
62 |
if $$self[8] < length $$self[0] |
|
139
|
3 |
0 |
if eval {
do {
require bytes
}
} |
|
142
|
84 |
6 |
if ($$self[1] & 1) |
|
149
|
56 |
28 |
unless $$self[0] =~ s/^(\S.*?(?:\x0D\x0A?\x0D\x0A?|\x0A\x0D?\x0A\x0D?))//s |
|
158
|
2 |
26 |
unless ($rh =~ s[^(\w+)[ \t]+(\S+)(?:[ \t]+(HTTP/\d+\.\d+))?[^\012]*\012][]) |
|
180
|
25 |
26 |
if (/^([\w\-~]+)\s*:\s*(.*)/) { } |
|
|
0 |
26 |
elsif (/^\s+(.*)/) { } |
|
181
|
13 |
12 |
if $key |
|
192
|
12 |
14 |
if $key |
|
198
|
10 |
16 |
if (defined $cl) |
|
199
|
1 |
9 |
unless ($cl =~ /^\s*(\d+)\s*$/) |
|
221
|
15 |
10 |
unless (defined $cl or defined $ce) |
|
255
|
1 |
9 |
unless ($cl) |
|
257
|
1 |
0 |
if ($$self[3] >= $HTTP_1_1 and not defined $cl) |
|
269
|
2 |
7 |
if (not $$self[7] and $cl > $$self[6]) |
|
285
|
13 |
0 |
if ($$self[1] & 2) |
|
288
|
0 |
13 |
if $cl_needed < 1 |
|
290
|
1 |
12 |
if ($$self[7]) |
|
294
|
1 |
0 |
if ($$self[2]) |
|
300
|
1 |
0 |
if (length $$self[0]) |
|
307
|
1 |
0 |
if ($$self[5] >= $$self[4]) |
|
319
|
6 |
6 |
if (length $$self[0] < $cl_needed) |
|
381
|
1 |
1 |
if $status_message ne $message |
|
382
|
2 |
0 |
if length $message |
|
443
|
1 |
0 |
if HAVE_UTF8() |
|
447
|
1 |
0 |
if (HAVE_UTF8() and utf8::is_utf8($value)) |
|
474
|
0 |
0 |
if length $$self[0] |
|
487
|
0 |
32 |
unless m[^(?:HTTP/)?(\d+)\.(\d+)$]i |
|
498
|
3 |
0 |
if eval {
do {
require bytes
}
} |
|
534
|
4 |
2 |
if $req |