| line |
true |
false |
branch |
|
40
|
0 |
0 |
if (defined $user) { } |
|
|
0 |
0 |
elsif ($Any::Daemon::EUID == 0) { } |
|
41
|
0 |
0 |
if ($user =~ /[^0-9]/) { } |
|
43
|
0 |
0 |
unless defined $uid |
|
53
|
0 |
0 |
if (defined $group) |
|
54
|
0 |
0 |
if ($group =~ /[^0-9]/) |
|
56
|
0 |
0 |
unless defined $gid |
|
73
|
0 |
0 |
if ref $_[1] eq 'CODE' |
|
82
|
0 |
0 |
if ($wd) |
|
83
|
0 |
0 |
unless -d $wd or mkdir $wd, 448 |
|
86
|
0 |
0 |
unless chdir $wd |
|
90
|
0 |
0 |
exists $args{'background'} ? : |
|
91
|
0 |
0 |
if ($bg) |
|
95
|
0 |
0 |
if ($kid) { } |
|
|
0 |
0 |
elsif (not defined $kid) { } |
|
103
|
0 |
0 |
unless &dispatcher('list') >= 1 |
|
108
|
0 |
0 |
if (defined $pidfn) |
|
110
|
0 |
0 |
if (open PIDF, '>', $pidfn) |
|
119
|
0 |
0 |
if $wd |
|
121
|
0 |
0 |
if ($gid != $Any::Daemon::EGID) |
|
122
|
0 |
0 |
if ($] > 5.015007) { } |
|
123
|
0 |
0 |
unless setgid($gid) |
|
127
|
0 |
0 |
if $@ |
|
132
|
0 |
0 |
if ($uid != $Any::Daemon::EUID) |
|
133
|
0 |
0 |
if ($] > 5.015007) { } |
|
134
|
0 |
0 |
unless setuid($uid) |
|
138
|
0 |
0 |
if $@ |
|
148
|
0 |
0 |
unless $child_task or $own_task |
|
151
|
0 |
0 |
unless $child_task and $own_task |
|
154
|
0 |
0 |
if ($bg) |
|
164
|
0 |
0 |
if ($child_task) { } |
|
182
|
0 |
0 |
if (my $e = $@->wasFatal) |
|
204
|
0 |
0 |
if $pidfn |
|
206
|
0 |
0 |
$signal eq 'INT' ? : |
|
225
|
0 |
0 |
if (my $e = $@->wasFatal) |
|
237
|
0 |
0 |
if $pidfn |
|
239
|
0 |
0 |
$signal eq 'INT' ? : |
|
256
|
0 |
0 |
unless @childs |
|
271
|
0 |
0 |
if $kid <= 0 |
|
273
|
0 |
0 |
if ($? != 0) |
|
274
|
0 |
0 |
WIFEXITED($?) ? : |
|
291
|
0 |
0 |
unless (defined $kid) |
|
292
|
0 |
0 |
unless $silence_warn++ |
|
294
|
0 |
0 |
if $silence_warn == 300 |
|
298
|
0 |
0 |
if ($kid == 0) |