| blib/lib/Perlbal/Test/WebServer.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 28 | 42 | 66.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 24 | 4 | 44 | 9 | $testpid and $testpid == $$ |
| 46 | 0 | 0 | 43 | $line and $line =~ /200 OK/ |
| 129 | 0 | 28 | 121 | $httpver == 0 and $hdr_connection =~ /\bkeep-alive\b/i |
| 156 | 1 | 0 | 150 | @cmds and defined $httpver |
| 1 | 0 | 150 | @cmds and defined $httpver and $msg | |
| 245 | 0 | 0 | 1 | $resp and $resp->content =~ /^pid = (\d+)$/m |
| line | l | !l | condition |
|---|---|---|---|
| 109 | 19 | 132 | $extra_hdr ||= '' |
| 112 | 130 | 21 | $content ||= '' |
| 115 | 0 | 143 | $ctype ||= 'text/plain' |
| 121 | 134 | 15 | $msg->header('Connection') || '' |
| 192 | 85 | 43 | $clen || 0 |
| 193 | 3 | 125 | $msg->header('X-PERLBAL-BUFFERED-UPLOAD-REASON') || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 75 | 0 | 151 | 544 | not $_ or /^\r?\n/ |
| 110 | 10 | 141 | 0 | $code ||= $content ? 200 : 200 |
| 111 | 0 | 151 | 0 | $codetext ||= {200, 'OK', 500, 'Internal Server Error', 204, 'No Content'}->{$code} |
| 256 | 149 | 0 | 0 | $to_send || &$response() |