| blib/lib/Perlbal/Test/WebClient.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 25 | 48.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 169 | 136 | 0 | 0 | $firstline =~ m[\bHTTP/1\.1\b] and not $conhdr =~ /\bclose\b/i |
| 0 | 6 | 130 | $firstline =~ m[\bHTTP/1\.0\b] and $conhdr =~ /\bkeep-alive\b/i |
| line | l | !l | condition |
|---|---|---|---|
| 101 | 75 | 61 | $opt_method || 'GET' |
| 168 | 136 | 0 | $resp->header('Connection') || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 98 | 17 | 0 | 119 | $opt_host || $$self{'host'} |
| 129 | 0 | 0 | 123 | $! or not defined $rv |
| 147 | 0 | 0 | 13 | $! or $rv != $len |
| 157 | 0 | 0 | 36 | $! or not defined $rv |
| 169 | 0 | 0 | 136 | $firstline =~ m[\bHTTP/1\.1\b] and not $conhdr =~ /\bclose\b/i or $firstline =~ m[\bHTTP/1\.0\b] and $conhdr =~ /\bkeep-alive\b/i |