| line |
true |
false |
branch |
|
42
|
2 |
46 |
if $opt->{'handle'} |
|
44
|
1 |
45 |
unless open $fh, $mode, $path |
|
45
|
2 |
43 |
if ($opt->{'binmode'}) { } |
|
|
2 |
41 |
elsif ($opt->{'binary'}) { } |
|
47
|
0 |
2 |
unless binmode $fh, $opt->{'binmode'} |
|
49
|
0 |
2 |
unless binmode $fh |
|
64
|
2 |
20 |
$data ? : |
|
65
|
1 |
21 |
if ($ref eq 'SCALAR') { } |
|
|
1 |
20 |
elsif ($ref eq 'CODE') { } |
|
70
|
0 |
2 |
unless defined $done |
|
79
|
0 |
2 |
unless defined $done |
|
81
|
1 |
1 |
if $done |
|
89
|
0 |
39 |
unless defined $done |
|
106
|
2 |
23 |
if ($ref eq 'SCALAR') { } |
|
|
1 |
22 |
elsif ($ref eq 'CODE') { } |
|
111
|
0 |
2 |
unless defined $done |
|
121
|
1 |
3 |
unless $length |
|
125
|
0 |
3 |
unless defined $done |
|
136
|
0 |
21 |
unless defined $done |
|
167
|
5 |
18 |
if @_ |
|
171
|
0 |
22 |
unless close $fh |
|
191
|
0 |
25 |
unless close $fh |