| line |
true |
false |
branch |
|
20
|
0 |
449 |
unless my $max_procs = $opt->{'max_procs'} |
|
22
|
0 |
449 |
unless my $path = $opt->{'path'} |
|
24
|
0 |
449 |
unless ($lock_mode =~ /^(?:exclusive|shared)$/) |
|
27
|
72 |
377 |
defined $opt->{'file_prefix'} ? : |
|
28
|
72 |
377 |
if length $file_prefix |
|
29
|
0 |
449 |
defined $opt->{'file_ext'} ? : |
|
43
|
362 |
87 |
unless $self->_get_lock |
|
52
|
4 |
445 |
$self->{'lock_mode'} eq 'shared' ? : |
|
61
|
0 |
662 |
unless sysopen my $fh, $lock_file, 66 |
|
64
|
87 |
575 |
if (flock $fh, $lock_mode_flag | 4) |
|
79
|
362 |
87 |
unless $self->{'id'} |
|
89
|
87 |
362 |
if $self->{'lock_fh'} |