| line |
true |
false |
branch |
|
69
|
0 |
0 |
if (@param % 2) |
|
74
|
0 |
0 |
exists $param{'uid'} ? : |
|
75
|
0 |
0 |
exists $param{'gid'} ? : |
|
76
|
0 |
0 |
exists $param{'home'} ? : |
|
77
|
0 |
0 |
if exists $param{'pid_file'} |
|
78
|
0 |
0 |
if exists $param{'name'} |
|
79
|
0 |
0 |
if (defined $name) |
|
89
|
0 |
0 |
unless (defined $child) |
|
93
|
0 |
0 |
if $child |
|
95
|
0 |
0 |
if (exists $param{'pid_file'}) |
|
100
|
0 |
0 |
if ($ret[0]) |
|
110
|
0 |
0 |
if ($uid ne '') |
|
114
|
0 |
0 |
if ($gid ne '') |
|
119
|
0 |
0 |
if ($home ne '') |
|
123
|
0 |
0 |
unless chdir $cwd |
|
124
|
0 |
0 |
unless chroot $cwd |
|
128
|
0 |
0 |
if ($gid ne '') |
|
133
|
0 |
0 |
if ($uid ne '') |
|
179
|
0 |
12 |
if (@param % 2) |
|
184
|
0 |
12 |
unless (exists $param{'function'}) |
|
189
|
0 |
12 |
if exists $param{'args'} |
|
190
|
3 |
9 |
if exists $param{'name'} |
|
191
|
3 |
9 |
exists $param{'home'} ? : |
|
192
|
0 |
12 |
exists $param{'uid'} ? : |
|
193
|
0 |
12 |
exists $param{'gid'} ? : |
|
194
|
0 |
12 |
exists $param{'eagain_sleep'} ? : |
|
198
|
0 |
12 |
if (exists $param{'strict'}) |
|
201
|
0 |
0 |
if (exists $$self{'_names'}{$param{'name'}}{'pid'}) |
|
205
|
0 |
0 |
if (exists $param{'pid_file'}) |
|
207
|
0 |
0 |
if (-e $param{'pid_file'}) |
|
213
|
0 |
0 |
if (kill 0, $pid_num) |
|
221
|
0 |
12 |
exists $param{'pid_file'} ? : |
|
223
|
0 |
12 |
if (exists $param{'max_load'}) |
|
226
|
0 |
0 |
if ($$self{'_max_load'} <= (getload)[0]) |
|
232
|
0 |
12 |
if (exists $param{'max_child'}) |
|
235
|
0 |
0 |
if ($$self{'_max_child'} <= keys %{$$self{'_pids'};}) |
|
241
|
0 |
12 |
if (exists $param{'max_mem'}) |
|
244
|
0 |
0 |
if ($$self{'_max_mem'} >= getmemfree()) |
|
250
|
0 |
12 |
if (exists $param{'expiration'}) { } |
|
253
|
0 |
0 |
if (exists $param{'expiration_auto'}) |
|
271
|
9 |
3 |
if ($pid = fork) { } |
|
|
3 |
0 |
elsif (defined $pid) { } |
|
|
0 |
0 |
elsif ($! == &POSIX::EAGAIN) { } |
|
278
|
3 |
6 |
if (defined $$self{'_name'}) |
|
283
|
9 |
0 |
if (defined $$self{'_pid_file'}) |
|
288
|
9 |
0 |
if (not defined $$self{'_pids'}{$pid}) { } |
|
292
|
9 |
0 |
if (defined $$self{'_expiration'}) |
|
296
|
0 |
9 |
if (defined $$self{'_expiration_auto'}) |
|
301
|
9 |
0 |
if (defined $$self{'_pid_file'}) |
|
306
|
9 |
0 |
if (defined $$self{'_home'}) |
|
316
|
5 |
4 |
if (not defined $$self{'_names'}{$exp_name}{'pid'}) { } |
|
320
|
5 |
0 |
if (defined $$self{'_expiration'}) |
|
324
|
0 |
5 |
if (defined $$self{'_expiration_auto'}) |
|
329
|
5 |
0 |
if (defined $$self{'_pid_file'}) |
|
334
|
5 |
0 |
if (defined $$self{'_home'}) |
|
351
|
2 |
1 |
if (defined $$self{'_name'}) |
|
362
|
0 |
3 |
if ($$self{'_home'} ne '') |
|
366
|
0 |
0 |
unless chdir $cwd |
|
367
|
0 |
0 |
unless chroot $cwd |
|
371
|
0 |
3 |
if ($$self{'_gid'} ne '') |
|
376
|
0 |
3 |
if ($$self{'_uid'} ne '') |
|
380
|
0 |
3 |
if ($$self{'_pid_file'} ne '') |
|
386
|
0 |
0 |
if (defined $$self{'_pid_folder'}) |
|
392
|
3 |
0 |
if (exists $$self{'_expiration'} and exists $$self{'_expiration_auto'}) { } |
|
397
|
0 |
0 |
if (defined $$self{'_pid_file'}) |
|
402
|
0 |
0 |
if (-e $pid_file) |
|
417
|
0 |
3 |
if ($! =~ /Interrupted system call/) |
|
427
|
3 |
0 |
if (defined $$self{'_pid_file'}) |
|
432
|
0 |
3 |
if (-e $pid_file) |
|
463
|
0 |
0 |
wantarray ? : |
|
478
|
0 |
0 |
wantarray ? : |
|
491
|
0 |
0 |
if ($$self{'_pids'}{$pid}{'expiration'} < $now) |
|
497
|
0 |
0 |
wantarray ? : |
|
504
|
0 |
0 |
if (exists $$self{'_pids'}{$pid}{'expiration'}) { } |
|
521
|
0 |
0 |
if (exists $$self{'_pids'}{$pid}{'expiration'}) { } |
|
563
|
0 |
0 |
unless ($state) |
|
566
|
0 |
0 |
if (defined $$self{'_pids'}{$child}{'pid_file'}) |
|
569
|
0 |
0 |
if (defined $$self{'_pids'}{$child}{'home'}) |
|
574
|
0 |
0 |
if (-e $pid_file) |
|
605
|
0 |
0 |
if (exists $$self{'_pids'}{$child}) |
|
608
|
0 |
0 |
wantarray ? : |
|
610
|
0 |
0 |
wantarray ? : |
|
619
|
0 |
0 |
if (defined $$self{'_names'}{$name}) |
|
622
|
0 |
0 |
wantarray ? : |
|
624
|
0 |
0 |
wantarray ? : |
|
637
|
0 |
0 |
if (-z $file) |
|
639
|
0 |
0 |
unless (-w $file and unlink $file) |
|
644
|
0 |
0 |
if (-e $file) |
|
651
|
0 |
0 |
if (kill 0, $pid_num) |
|
655
|
0 |
0 |
unless (-w $file and unlink $file) |
|
661
|
0 |
0 |
unless ($fh) |
|
670
|
0 |
0 |
if (-e $file) |
|
672
|
0 |
0 |
if (not -w $file && unlink($file)) |
|
684
|
0 |
0 |
if (defined $PID{$child}{'pid_file'}) |
|
689
|
0 |
0 |
if (defined $PID{$child}{'home'}) |
|
694
|
0 |
0 |
if (-e $pid_file) |
|
704
|
0 |
0 |
if (exists $NAME{$name}) |
|
728
|
0 |
0 |
if ($unit =~ /kb/i) { } |
|
|
0 |
0 |
elsif ($unit =~ /mb/i) { } |
|
739
|
0 |
0 |
if ($unit =~ /kb/i) { } |
|
|
0 |
0 |
elsif ($unit =~ /mb/i) { } |
|
748
|
0 |
0 |
wantarray ? : |