| line |
true |
false |
branch |
|
73
|
0 |
1 |
defined $arg->{'method'} ? : |
|
74
|
0 |
1 |
defined $arg->{'binmode'} ? : |
|
78
|
0 |
0 |
if (ref $_[2] eq 'HASH') { } |
|
86
|
0 |
0 |
defined $options->{'binmode'} ? : |
|
90
|
0 |
0 |
unless $filename |
|
91
|
0 |
0 |
if -e $filename and not -f _ |
|
94
|
0 |
0 |
unless my $handle = "IO::File"->new($filename, ">:$binmode") |
|
121
|
0 |
1 |
defined $arg->{'method'} ? : |
|
122
|
0 |
1 |
defined $arg->{'binmode'} ? : |
|
125
|
1 |
1 |
@_ > 2 && ref $_[1] ? : |
|
128
|
1 |
1 |
$opt && $opt->{'binmode'} ? : |
|
132
|
0 |
2 |
unless open my $handle, ">:$binmode", \$string |
|
136
|
0 |
2 |
unless close $handle |