| line |
true |
false |
branch |
|
43
|
0 |
6 |
if ($lockfile_path =~ m[/]) { } |
|
59
|
2 |
0 |
if ($is_symlink) { } |
|
62
|
0 |
2 |
unless (defined $content) |
|
68
|
0 |
0 |
unless (open my $fh, "<", $lockfile_path) |
|
73
|
0 |
2 |
unless ($content =~ /\A(.+)\@(.+)\.(\d+)(?::(\d+))?\R?\z/s) |
|
78
|
2 |
0 |
if $4 |
|
95
|
0 |
0 |
unless defined(my $target_file = $args{'target_file'}) |
|
99
|
0 |
0 |
if $lockinfo->{'error'} |
|
137
|
0 |
5 |
unless defined(my $target_file = $args{'target_file'}) |
|
140
|
1 |
2 |
unless $force or -f $target_file |
|
153
|
3 |
2 |
if (symlink "$new_lockinfo->{'user'}\@$new_lockinfo->{'host'}.$new_lockinfo->{'pid'}:$new_lockinfo->{'boot'}", $lockfile_path) |
|
161
|
0 |
2 |
unless $old_lockinfo->{'exists'} |
|
164
|
0 |
2 |
if $old_lockinfo->{'error'} |
|
166
|
2 |
0 |
if ($new_lockinfo->{'pid'} != $old_lockinfo->{'pid'}) |
|
167
|
1 |
1 |
if ($force) |
|
173
|
0 |
1 |
unless unlink $lockfile_path |
|
196
|
0 |
0 |
unless defined(my $target_file = $args{'target_file'}) |
|
200
|
0 |
0 |
if $lockinfo->{'error'} |
|
201
|
0 |
0 |
unless $lockinfo->{'exists'} |
|
202
|
0 |
0 |
unless defined $args{'by_us'} |
|
203
|
0 |
0 |
$args{'by_us'} ? : |
|
237
|
0 |
0 |
unless defined(my $target_file = $args{'target_file'}) |
|
240
|
0 |
0 |
unless $force or -f $target_file |
|
243
|
0 |
0 |
unless $lockinfo->{'exists'} |
|
245
|
0 |
0 |
if $lockinfo->{'error'} |
|
248
|
0 |
0 |
if not $force and $$ != $lockinfo->{'pid'} |
|
251
|
0 |
0 |
unless unlink $lockinfo->{'path'} |