| 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 |