| line |
true |
false |
branch |
|
23
|
1 |
0 |
if (lc $format eq 'auto') |
|
25
|
1 |
0 |
$filename =~ /\.([^\.]+)$/ ? : |
|
45
|
0 |
1 |
unless $implementation |
|
48
|
0 |
1 |
if $@ |
|
52
|
1 |
0 |
if ($self and not $@) { } |
|
|
0 |
0 |
elsif ($args{'failsafe'}) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
60
|
0 |
0 |
if $@ |
|
89
|
0 |
3 |
if $$self{'_CLOSED'} |
|
93
|
1 |
2 |
unless ($fh) |
|
95
|
0 |
1 |
unless my $filename = $$self{'_FILENAME'} |
|
97
|
0 |
1 |
unless $fh->open($filename, 'w') |
|
113
|
0 |
3 |
unless $self->_open |
|
119
|
0 |
6 |
if (ref $item eq 'HASH') { } |
|
121
|
0 |
0 |
if (ref $$item{'content'} eq 'ARRAY') { } |
|
154
|
2 |
0 |
if (ref $row eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not ref $row) { } |