| line |
true |
false |
branch |
|
216
|
0 |
10 |
unless my $fh = 'IO::File'->new(\$str, '>:') |
|
237
|
36 |
148 |
if @_ > 1 |
|
254
|
7 |
67 |
if @_ > 1 |
|
312
|
113 |
219 |
if @_ |
|
431
|
0 |
148 |
if ($mode ne 'r' and $mode ne 'w') |
|
437
|
35 |
113 |
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
|
30 |
52 |
if $mode eq 'w' |
|
517
|
30 |
52 |
if ($mode eq 'w') { } |
|
|
52 |
0 |
elsif ($mode eq 'r') { } |
|
573
|
28 |
13 |
if (not defined $data) { } |
|
|
11 |
2 |
elsif (not ref $data) { } |
|
|
1 |
1 |
elsif (ref $data eq 'SCALAR') { } |
|
|
1 |
0 |
elsif (ref $data eq 'ARRAY') { } |