| blib/lib/Mojo/Server/CGI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 20 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 1 | 0 | $len && $len < 131072 ? : |
| 19 | 0 | 1 | unless my $read = "STDIN"->read(my $buffer, $chunk, 0) |
| 21 | 1 | 0 | if ($len -= $read) <= 0 |
| 30 | 0 | 9 | if $self->nph and not _write($res, "get_start_line_chunk") |
| 35 | 8 | 1 | unless $self->nph |
| 36 | 0 | 9 | unless _write($res, "get_header_chunk") |
| 39 | 0 | 9 | unless $tx->is_empty or _write($res, "get_body_chunk") |
| 54 | 0 | 43 | unless defined(my $chunk = $res->$method($offset)) |
| 57 | 18 | 25 | unless my $len = length $chunk |
| 61 | 0 | 25 | unless "STDOUT"->opened |