| line |
true |
false |
branch |
|
26
|
0 |
2 |
exists $config{'debug'} ? : |
|
27
|
0 |
2 |
exists $config{'response'} ? : |
|
34
|
1 |
1 |
defined @{$config{'accept'};} ? : |
|
36
|
2 |
0 |
unless (exists $config{'port'}) |
|
58
|
2 |
0 |
unless $@ |
|
63
|
0 |
2 |
if exists $config{'port'} |
|
72
|
0 |
2 |
if ($config{'debug'}) |
|
85
|
0 |
2 |
unless defined($$self{'child'} = fork) |
|
86
|
0 |
2 |
if ($$self{'child'} == 0) { } |
|
90
|
0 |
0 |
if ($config{'debug'}) |
|
102
|
0 |
0 |
unless ($self->valid_header) |
|
107
|
0 |
0 |
unless ($self->valid_conn(\$connection)) |
|
112
|
0 |
0 |
if ($$self{'lock'} > 1) |
|
117
|
0 |
0 |
if $$self{'lock'} > 0 |
|
120
|
0 |
0 |
if ($$self{'incoming'} ne $$self{'response'}) { } |
|
134
|
0 |
0 |
if $sock->connected |
|
147
|
0 |
0 |
if substr($$self{'incoming'}, 0, length $valid) ne $valid |
|
163
|
0 |
0 |
unless $sock = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $address, 'PeerPort', $port) |
|
168
|
0 |
0 |
if $sock->connected |
|
172
|
0 |
0 |
if ($$self{'debug'}) |
|
199
|
0 |
0 |
if $accept eq $$connection->peeraddr or $accept eq $$connection->peerhost |