| line |
true |
false |
branch |
|
38
|
8 |
9 |
unless defined(my $header = XXX) |
|
45
|
1 |
8 |
if ($content_length) |
|
87
|
4 |
0 |
unless $resp->protocol |
|
88
|
4 |
0 |
unless $resp->content_length |
|
92
|
0 |
4 |
if $server->can("on_response_header") |
|
114
|
5 |
0 |
if $path_info eq "/" |
|
143
|
0 |
1 |
unless $name =~ /^CONTENT_(?:LENGTH|TYPE)$/u |
|
172
|
0 |
5 |
if $key eq "Content-Length" |
|
173
|
0 |
5 |
if $key eq "Transfer-Encoding" and $value eq "chunked" |
|
176
|
0 |
5 |
if (not defined $body) { } |
|
|
4 |
1 |
elsif (ref $body eq 'ARRAY') { } |
|
180
|
4 |
0 |
unless ($has_content_length) |
|
187
|
0 |
4 |
if $server->can("on_response_header") |
|
197
|
1 |
0 |
unless ($has_content_length) |
|
202
|
0 |
1 |
if $server->can("on_response_header") |
|
210
|
1 |
1 |
unless defined $buffer |
|
212
|
1 |
0 |
if $use_chunked_transfer |
|
218
|
1 |
0 |
if $use_chunked_transfer |
|
224
|
4 |
1 |
if (ref $psgiresp eq 'ARRAY') { } |
|
|
1 |
0 |
elsif (ref $psgiresp eq 'CODE') { } |