line |
true |
false |
branch |
20
|
5 |
0 |
unless defined $autoflush
|
23
|
1 |
1 |
unless defined $conf{'path'} or $conf{'handle'}
|
25
|
0 |
4 |
unless $lock_mode =~ /\A(none|write|exclusive)\z/
|
28
|
0 |
0 |
if $lock_mode ne 'none' and $conf{'handle'}
|
32
|
0 |
0 |
defined $conf{'path'} ? :
|
33
|
0 |
0 |
if ($lock_handles{$key})
|
44
|
0 |
4 |
if $fh
|
45
|
3 |
1 |
if (defined(my $path = $conf{'path'})) { }
|
46
|
0 |
3 |
unless open $fh, '>>', $path
|
53
|
0 |
4 |
if ($lock_mode eq 'exclusive')
|
57
|
3 |
1 |
unless $lazy
|
67
|
1 |
3 |
if $lazy and not $fh
|
68
|
0 |
4 |
if $lock_mode eq 'write'
|
70
|
4 |
0 |
unless $_[1] =~ /\R\z/
|
71
|
4 |
0 |
if $autoflush or $lock_handle
|