| line |
true |
false |
branch |
|
20
|
0 |
1025 |
unless my $max_procs = $opt->{'max_procs'} |
|
22
|
0 |
1025 |
unless my $path = $opt->{'path'} |
|
24
|
0 |
1025 |
unless ($lock_mode =~ /^(?:exclusive|shared)$/) |
|
27
|
639 |
386 |
defined $opt->{'file_prefix'} ? : |
|
28
|
639 |
386 |
if length $file_prefix |
|
29
|
0 |
1025 |
defined $opt->{'file_ext'} ? : |
|
43
|
575 |
450 |
unless $self->_get_lock |
|
52
|
4 |
1021 |
$self->{'lock_mode'} eq 'shared' ? : |
|
60
|
0 |
1238 |
unless sysopen my $fh, $lock_file, 66 |
|
63
|
450 |
788 |
if (flock $fh, $lock_mode_flag | 4) |
|
77
|
575 |
450 |
unless $self->{'id'} |
|
87
|
450 |
575 |
if $self->{'lock_fh'} |