| line |
true |
false |
branch |
|
21
|
0 |
0 |
if @_ & 1 |
|
38
|
0 |
0 |
unless $$self{'server'} = 'IO::Socket::UNIX'->new('Type', 1, 'Local', $$self{'socket_path'}, 'Listen', 128) |
|
49
|
0 |
0 |
if ($@) |
|
61
|
0 |
0 |
unless defined(my $pid = fork) |
|
62
|
0 |
0 |
if (not $pid) { } |
|
63
|
0 |
0 |
unless chdir '/' |
|
64
|
0 |
0 |
unless open STDIN, '/dev/null' |
|
65
|
0 |
0 |
unless open STDOUT, '>/dev/null' |
|
67
|
0 |
0 |
unless setsid() |
|
68
|
0 |
0 |
unless open STDERR, '>&STDOUT' |
|
84
|
0 |
0 |
unless my $client = 'IO::Socket::UNIX'->new('Type', 1, 'Peer', $socket_path) |
|
97
|
0 |
0 |
if ref $_ eq 'CODE' |
|
118
|
0 |
0 |
if /^$/ |
|
142
|
0 |
0 |
if (@_) { } |
|
145
|
0 |
0 |
if (defined $$self{'idle'} and ref $$self{'idle'} eq 'CODE') |
|
173
|
0 |
0 |
if ($fh == $server) { } |
|
180
|
0 |
0 |
if ($self->can($do_this)) { } |
|
184
|
0 |
0 |
if ($@) |
|
197
|
0 |
0 |
if $s == 0 |