| line |
true |
false |
branch |
|
43
|
0 |
0 |
defined $hash{'delimiter'} ? : |
|
44
|
0 |
0 |
defined $hash{'string_format'} ? : |
|
45
|
0 |
0 |
defined $hash{'timeout'} ? : |
|
46
|
0 |
0 |
defined $hash{'piddir'} ? : |
|
80
|
0 |
0 |
if $client |
|
97
|
0 |
0 |
if $client |
|
106
|
0 |
0 |
unless my $server = 'IO::Socket::INET'->new('LocalPort', $self->port, 'Listen', 50, 'Proto', 'tcp', 'Reuse', 1) |
|
116
|
0 |
0 |
unless open FILE, '>' . $self->piddir . '/' . $self->serverName |
|
129
|
0 |
0 |
if ($current_time != $this_time) |
|
131
|
0 |
0 |
if $server == $client |
|
133
|
0 |
0 |
if ($turn_timeout{$client} != -1) |
|
134
|
0 |
0 |
if ($turn_timeout{$client} <= 0) { } |
|
150
|
0 |
0 |
if ($cronCounter % ($$self{'timeout'} + 30) == 0) |
|
152
|
0 |
0 |
if $server == $client |
|
156
|
0 |
0 |
if ($this_time - $idle{$client} >= $$self{'timeout'}) |
|
168
|
0 |
0 |
if ($client == $server) { } |
|
184
|
0 |
0 |
unless (defined $rv and length $data) |
|
217
|
0 |
0 |
unless exists $outbuffer{$client} |
|
222
|
0 |
0 |
if $@ |
|
224
|
0 |
0 |
unless (defined $rv) |
|
231
|
0 |
0 |
if ($rv == length $outbuffer{$client} or $! == 11) { } |
|
233
|
0 |
0 |
unless length $outbuffer{$client} |
|
261
|
0 |
0 |
unless $flags = fcntl($socket, 3, 0) |
|
263
|
0 |
0 |
unless fcntl $socket, 4, $flags | 2048 |
|
346
|
0 |
0 |
unless ($cronCounter % $_) |
|
351
|
0 |
0 |
if ($cronCounter % 4527 == 0) |