| line |
true |
false |
branch |
|
26
|
2 |
56 |
unless defined $fh |
|
51
|
421 |
0 |
if (ref $param eq '') { } |
|
52
|
0 |
421 |
unless open $fh, '>>', $param |
|
58
|
345 |
76 |
unless (&_lockf($fh, $opts, $fname)) |
|
63
|
0 |
76 |
if defined $opts->{'mode'} |
|
75
|
0 |
421 |
$opts->{'shared'} ? : |
|
77
|
350 |
71 |
if (not $opts->{'blocking'} or defined $opts->{'timeout'} and not $opts->{'timeout'}) |
|
81
|
5 |
345 |
if flock $fh, $mode | 4 |
|
82
|
345 |
0 |
if $! == 11 |
|
86
|
1 |
70 |
if (not flock($fh, $mode | 4)) { } |
|
88
|
0 |
1 |
if (-t STDOUT) |
|
95
|
0 |
1 |
if ($opts->{'timeout'}) { } |
|
98
|
0 |
0 |
unless flock $fh, $mode |
|
100
|
0 |
1 |
unless flock $fh, $mode |