| line |
true |
false |
branch |
|
10
|
0 |
1 |
defined $_[0] && !($_[0] =~ / \A \d+ \. \d+ \. \d+ \z /msx) ? : |
|
22
|
0 |
1 |
if (defined $file and $file ne '') |
|
24
|
0 |
0 |
unless 'Unix::PID'->new->pid_file($file) |
|
31
|
0 |
0 |
if ref $args_ref ne 'HASH' |
|
32
|
0 |
0 |
!(exists $$args_ref{'minimum_pid'} && $$args_ref{'minimum_pid'} =~ /\A\d+\z/ms) ? : |
|
|
0 |
0 |
exists $$args_ref{'use_open3'} && !$$args_ref{'use_open3'} ? : |
|
41
|
0 |
0 |
if $$self{'open3'} |
|
43
|
0 |
0 |
if exists $$args_ref{'ps_path'} |
|
63
|
0 |
0 |
if substr($path, -1, 1) eq '/' |
|
65
|
0 |
0 |
if (-d $path and -x "$path/ps" or $path eq '') { } |
|
80
|
0 |
0 |
if $pid and $pid ne $$ and $cmd |
|
85
|
0 |
0 |
$exact ? : |
|
87
|
0 |
0 |
wantarray ? : |
|
95
|
0 |
0 |
if ($pid < $min) |
|
104
|
0 |
0 |
if ($self->is_pid_running($pid)) |
|
114
|
0 |
0 |
if ($give_kill_a_chance) |
|
117
|
0 |
0 |
if $self->is_pid_running($pid) |
|
126
|
0 |
0 |
unless -e $pid_file |
|
128
|
0 |
0 |
unless open my $pid_fh, '<', $pid_file |
|
138
|
0 |
0 |
if $self->is_pid_running($pid) |
|
144
|
0 |
0 |
unless $newpid |
|
147
|
0 |
0 |
if ($rc and $newpid == $$) |
|
152
|
0 |
0 |
if ($$self{'unlink_end_use_current_pid_only'}) { } |
|
154
|
0 |
0 |
if ($$self{'carp_unlink_end'}) |
|
162
|
0 |
0 |
if ($$self{'carp_unlink_end'}) |
|
170
|
0 |
0 |
if $rc == 1 |
|
171
|
0 |
0 |
if defined $rc and $rc == 0 |
|
177
|
0 |
0 |
unless $newpid |
|
179
|
0 |
0 |
if (ref $retry_conf eq 'ARRAY') { } |
|
182
|
0 |
0 |
if ref $$retry_conf[$idx] eq 'CODE' |
|
195
|
0 |
0 |
if (-e $pid_file) |
|
202
|
0 |
0 |
if int $curpid == $$ and $newpid == $$ |
|
203
|
0 |
0 |
if int $curpid == $$ |
|
204
|
0 |
0 |
if $self->is_pid_running(int $curpid) |
|
210
|
0 |
0 |
unless (sysopen my $pid_fh, $pid_file, 193) |
|
211
|
0 |
0 |
if $passes >= $$retry_conf[0] |
|
212
|
0 |
0 |
if (ref $$retry_conf[$passes] eq 'CODE') { } |
|
216
|
0 |
0 |
if $$retry_conf[$passes] |
|
230
|
0 |
0 |
if ($rc and -e $pidfile) |
|
231
|
0 |
0 |
unless unlink $pidfile |
|
238
|
0 |
0 |
if (-e $pidfile) |
|
240
|
0 |
0 |
unless $self->kill($pid) |
|
248
|
0 |
0 |
if $check_this =~ / \A \d+ \z /msx |
|
255
|
0 |
0 |
wantarray ? : |
|
263
|
0 |
0 |
wantarray ? : |
|
270
|
0 |
0 |
wantarray ? : |
|
276
|
0 |
0 |
unless $check_pid |
|
278
|
0 |
0 |
if $> == 0 and CORE::kill 0, $check_pid |
|
281
|
0 |
0 |
if -e "/proc/$$" and -r "/proc/$$" and -r "/proc/$check_pid" |
|
285
|
0 |
0 |
if defined $info |
|
291
|
0 |
0 |
scalar $self->get_pidof($check_command, $exact) ? : |
|
297
|
0 |
0 |
unless $$wait_ref{'get_pidof'} |
|
298
|
0 |
0 |
unless defined $$wait_ref{'max_loops'} and $$wait_ref{'max_loops'} =~ / \A \d+ \z /msx |
|
305
|
0 |
0 |
if ref $$wait_ref{'hit_max_loops'} ne 'CODE' |
|
308
|
0 |
0 |
if (ref $$wait_ref{'pid_list'} eq 'ARRAY') { } |
|
309
|
0 |
0 |
$self->is_pid_running($_) ? : |
|
315
|
0 |
0 |
if ($$wait_ref{'use_hires_usleep'} or $$wait_ref{'use_hires_nanosleep'}) |
|
321
|
0 |
0 |
if (ref $$wait_ref{'sleep_for'}) |
|
322
|
0 |
0 |
if (ref $$wait_ref{'sleep_for'} eq 'ARRAY') |
|
326
|
0 |
0 |
if ($$wait_ref{'sleep_for'} eq 'HASH') |
|
327
|
0 |
0 |
if (exists $$wait_ref{'sleep_for'}{'fibonacci'}) |
|
333
|
0 |
0 |
unless defined $$wait_ref{'sleep_for'} |
|
340
|
0 |
0 |
if ref $$wait_ref{'pre_sleep'} eq 'CODE' |
|
343
|
0 |
0 |
$fib ? : |
|
|
0 |
0 |
$lcy ? : |
|
348
|
0 |
0 |
if ($$wait_ref{'use_hires_nanosleep'}) { } |
|
|
0 |
0 |
elsif ($$wait_ref{'use_hires_usleep'}) { } |
|
358
|
0 |
0 |
if (ref $$wait_ref{'pid_list'} eq 'ARRAY') { } |
|
359
|
0 |
0 |
$self->is_pid_running($_) ? : |
|
365
|
0 |
0 |
if ($loop_cnt >= $$wait_ref{'max_loops'}) |
|
377
|
0 |
0 |
unless ($path) |
|
384
|
0 |
0 |
if (-x "$_/ps") |
|
392
|
0 |
0 |
$path ? : |
|
395
|
0 |
0 |
if ($$self{'open3'}) { } |
|
416
|
0 |
0 |
wantarray ? : |