| line |
true |
false |
branch |
|
216
|
0 |
10 |
unless my $fh = "IO::File"->new(\$str, ">:") |
|
237
|
44 |
150 |
if @_ > 1 |
|
254
|
7 |
73 |
if @_ > 1 |
|
312
|
115 |
221 |
if @_ |
|
431
|
0 |
150 |
if ($mode ne "r" and $mode ne "w") |
|
437
|
35 |
115 |
if $self->binmode |
|
449
|
3 |
0 |
if (defined $self->path) |
|
450
|
0 |
3 |
unless unlink $self->path |
|
498
|
0 |
2 |
if ref $data and ref $data eq "ARRAY" |
|
499
|
0 |
2 |
defined $data ? : |
|
515
|
50 |
58 |
if $mode eq "w" |
|
517
|
50 |
58 |
if ($mode eq 'w') { } |
|
|
58 |
0 |
elsif ($mode eq 'r') { } |
|
573
|
48 |
21 |
if (not defined $data) { } |
|
|
11 |
10 |
elsif (not ref $data) { } |
|
|
1 |
9 |
elsif (ref $data eq 'SCALAR') { } |
|
|
9 |
0 |
elsif (ref $data eq 'ARRAY') { } |