| line |
true |
false |
branch |
|
38
|
1 |
35 |
unless defined $args_hr |
|
39
|
1 |
35 |
unless 'HASH' eq ref $args_hr |
|
40
|
2 |
33 |
unless exists $$args_hr{'logger'} |
|
49
|
1 |
32 |
if $args{'sleep_secs'} < 1 |
|
66
|
486 |
3 |
if (sysopen my $fh, $lockfile, &Fcntl::O_WRONLY | &Fcntl::O_EXCL | &Fcntl::O_CREAT) |
|
70
|
0 |
486 |
if ($ex) |
|
86
|
0 |
2 |
unless ($pid) |
|
89
|
0 |
0 |
unless -e $lockfile |
|
93
|
0 |
2 |
if (time > $max_time) |
|
101
|
1 |
1 |
if ($pid == $$ and $0 eq $name) { } |
|
|
1 |
0 |
elsif ($pid == $$) { } |
|
|
0 |
0 |
elsif (not _pid_alive($lockfile, $pid)) { } |
|
112
|
0 |
0 |
if (-e $lockfile) |
|
129
|
0 |
487 |
unless $lockfile |
|
131
|
0 |
487 |
unless (-e $lockfile) |
|
136
|
0 |
487 |
unless (defined $pid) |
|
141
|
0 |
487 |
if (0 == $pid) |
|
145
|
486 |
1 |
if ($$ == $pid) { } |
|
202
|
490 |
0 |
if (open my $fh, '<', $lockfile) |
|
204
|
0 |
490 |
if $ex |
|
210
|
0 |
490 |
unless ($pid) |
|
216
|
1 |
489 |
if $pid =~ /\D/ |
|
217
|
0 |
489 |
unless length $name |
|
218
|
0 |
489 |
if $wait_time =~ /\D/ |
|
221
|
0 |
0 |
unless -e $lockfile |
|
223
|
0 |
0 |
unless -r _ |
|
230
|
0 |
0 |
if (-z $lockfile) |
|
231
|
0 |
0 |
if ($lock_age > $$self{'max_age'}) |
|
258
|
0 |
0 |
if ($> == 0 or $> == $fileuid) |
|
259
|
0 |
0 |
unless kill 0, $pid or $!{'EPERM'} |
|
263
|
0 |
0 |
if -e "/proc/$$" and -r "/proc/$$" |