| line |
true |
false |
branch |
|
59
|
1 |
35 |
exists $param{'dry_run'} && $param{'dry_run'} ? : |
|
62
|
4 |
32 |
if (exists $param{'uid'}) |
|
65
|
2 |
2 |
unless defined $uid and $uid =~ /^\d+$/x |
|
70
|
4 |
30 |
if (exists $param{'gid'}) |
|
73
|
2 |
2 |
unless defined $gid and $gid =~ /^\d+$/x |
|
78
|
4 |
28 |
if (exists $param{'cwd'}) |
|
81
|
2 |
2 |
unless defined $cwd and length $cwd |
|
86
|
4 |
26 |
if (exists $param{'umask'}) |
|
89
|
2 |
2 |
unless defined $umask and length $umask |
|
94
|
3 |
25 |
if (exists $param{'logger'}) |
|
97
|
1 |
1 |
unless defined $logger and ref $logger and $logger->can('info') |
|
102
|
6 |
20 |
if (exists $param{'log_callback'}) { } |
|
105
|
2 |
4 |
unless defined $log_callback and ref $log_callback eq 'CODE' |
|
115
|
3 |
21 |
if (exists $param{'on_fork_callback'}) |
|
118
|
2 |
1 |
unless defined $on_fork_callback and ref $on_fork_callback eq 'CODE' |
|
140
|
2 |
7 |
if $self->is_detached |
|
143
|
5 |
2 |
if (not $self->dry_run) { } |
|
148
|
1 |
4 |
unless defined $pid |
|
151
|
2 |
2 |
if ($pid == 0) { } |
|
152
|
1 |
1 |
unless POSIX::setsid() |
|
165
|
1 |
1 |
if (defined(my $cb = $self->on_fork_callback)) |
|
182
|
0 |
1 |
unless open STDIN, '
|
|
184
|
0 |
1 |
unless open STDOUT, '>/dev/null' |
|
186
|
0 |
1 |
unless open STDERR, '>/dev/null' |
|
195
|
2 |
7 |
if (defined(my $uid = $self->uid)) |
|
197
|
1 |
1 |
unless POSIX::setuid($uid) |
|
201
|
2 |
6 |
if (defined(my $gid = $self->gid)) |
|
203
|
1 |
1 |
unless POSIX::setgid($gid) |
|
207
|
2 |
5 |
if (defined(my $umask = $self->umask)) |
|
209
|
1 |
1 |
unless POSIX::umask($umask) |
|
213
|
2 |
4 |
if (defined(my $cwd = $self->cwd)) |
|
215
|
1 |
1 |
unless POSIX::chdir($cwd) |
|
225
|
2 |
1 |
if (defined(my $pid = $self->pid)) { } |
|
229
|
1 |
1 |
defined $signal ? : |
|
241
|
1 |
0 |
POSIX::kill($pid, 0) ? : |