| blib/lib/Perlbal/ClientManage.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 30 | 20.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 17 | 0 | unless ref $self |
| 38 | 117 | 0 | unless ($$self{'is_http'}) |
| 40 | 0 | 117 | unless defined $bref |
| 43 | 0 | 117 | if ($$self{'buf'} =~ /^(?:HEAD|GET|POST) /) |
| 49 | 0 | 117 | if ($$self{'is_http'}) |
| 51 | 0 | 0 | unless $hd |
| 59 | 0 | 117 | if ($line =~ /^quit|exit$/) |
| 74 | 0 | 0 | if $self->write(undef) |
| 96 | 0 | 0 | if $alt |
| 107 | 0 | 0 | if ($uri eq '/') { } |
| 0 | 0 | elsif ($uri eq '/socks') { } | |
| 0 | 0 | elsif ($uri eq '/obj') { } | |
| 0 | 0 | elsif ($uri =~ m[^/service\?(\w+)$]) { } | |
| 114 | 0 | 0 | unless $svc |
| 115 | 0 | 0 | $$svc{'listen'} ? : |