| line |
true |
false |
branch |
|
20
|
0 |
1032 |
unless my $max_procs = $opt->{'max_procs'} |
|
22
|
0 |
1032 |
unless my $path = $opt->{'path'} |
|
24
|
0 |
1032 |
unless ($lock_mode =~ /^(?:exclusive|shared)$/) |
|
27
|
657 |
375 |
defined $opt->{'file_prefix'} ? : |
|
28
|
657 |
375 |
if length $file_prefix |
|
29
|
0 |
1032 |
defined $opt->{'file_ext'} ? : |
|
43
|
586 |
446 |
unless $self->_get_lock |
|
52
|
4 |
1028 |
$self->{'lock_mode'} eq 'shared' ? : |
|
61
|
0 |
1245 |
unless sysopen my $fh, $lock_file, 66 |
|
64
|
446 |
799 |
if (flock $fh, $lock_mode_flag | 4) |
|
79
|
586 |
446 |
unless $self->{'id'} |
|
89
|
446 |
586 |
if $self->{'lock_fh'} |