| line |
true |
false |
branch |
|
8
|
0 |
0 |
unless exists $$args_hr{'minimum_pid'} and $$args_hr{'minimum_pid'} =~ /\A\d+\z/ms |
|
10
|
0 |
0 |
if (defined $$args_hr{'ps_path'}) { } |
|
11
|
0 |
0 |
unless $$args_hr{'ps_path'} =~ m[/$] |
|
12
|
0 |
0 |
unless (-d $$args_hr{'ps_path'} and -x "$$args_hr{'ps_path'}ps") |
|
25
|
0 |
0 |
if defined $give_kill_a_chance |
|
28
|
0 |
0 |
if ($pid < $min) |
|
37
|
0 |
0 |
if ($self->is_pid_running($pid)) |
|
47
|
0 |
0 |
if ($give_kill_a_chance) |
|
50
|
0 |
0 |
if $self->is_pid_running($pid) |
|
59
|
0 |
0 |
if not $check_pid or $check_pid < 0 |
|
61
|
0 |
0 |
if $> == 0 and _kill(0, $check_pid) |
|
64
|
0 |
0 |
if -e "/proc/$$" and -r "/proc/$$" and -r "/proc/$check_pid" |
|
69
|
0 |
0 |
if defined $outp[1] |
|
76
|
0 |
0 |
if not $pid or $pid < 0 |
|
82
|
0 |
0 |
wantarray ? : |
|
89
|
0 |
0 |
wantarray ? : |
|
96
|
0 |
0 |
unless -e $pid_file |
|
98
|
0 |
0 |
unless open my $pid_fh, '<', $pid_file |
|
108
|
0 |
0 |
if $self->is_pid_running($pid) |
|
114
|
0 |
0 |
unless $newpid |
|
117
|
0 |
0 |
if ($rc and $newpid == $$) |
|
122
|
0 |
0 |
if ($$self{'unlink_end_use_current_pid_only'}) { } |
|
124
|
0 |
0 |
if ($$self{'carp_unlink_end'}) |
|
132
|
0 |
0 |
if ($$self{'carp_unlink_end'}) |
|
140
|
0 |
0 |
if defined $rc and $rc == 1 |
|
141
|
0 |
0 |
if defined $rc and $rc == 0 |
|
149
|
0 |
0 |
unless $newpid |
|
151
|
0 |
0 |
if (ref $retry_conf eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $retry_conf eq 'HASH') { } |
|
154
|
0 |
0 |
if ref $$retry_conf[$idx] eq 'CODE' |
|
172
|
0 |
0 |
if (-e $pid_file) |
|
178
|
0 |
0 |
if int $curpid == $$ and $newpid == $$ |
|
179
|
0 |
0 |
if int $curpid == $$ |
|
180
|
0 |
0 |
if $self->is_pid_running(int $curpid) |
|
187
|
0 |
0 |
unless ($pid_fh) |
|
188
|
0 |
0 |
if $passes >= $$retry_conf[0] |
|
189
|
0 |
0 |
if (ref $$retry_conf[$passes] eq 'CODE') { } |
|
193
|
0 |
0 |
if $$retry_conf[$passes] |
|
206
|
0 |
0 |
unless sysopen my $pid_fh, $pid_file, 193 |