| blib/lib/CGI/Parse/PSGI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 16 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 3 | 5 | if (ref $output eq 'SCALAR') { } |
| 18 | 0 | 5 | unless open my $tmp, '<&=:perlio:raw', fileno $output |
| 26 | 8 | 16 | if $headers =~ /\x0d?\x0a\x0d?\x0a$/ |
| 28 | 0 | 8 | unless (defined $headers) |
| 32 | 8 | 0 | unless ($headers =~ /^HTTP/) |
| 39 | 1 | 7 | if ($response->header('Location') and not $response->header('Status')) |
| 49 | 0 | 8 | if ($response->code == 500 and not $remaining) |
| 66 | 5 | 3 | if ($length and not $response->content_length) |