| line |
true |
false |
branch |
|
23
|
1 |
0 |
if (lc $format eq 'auto')
|
|
25
|
1 |
0 |
$filename =~ /\.([^\.]+)$/ ? :
|
|
46
|
0 |
1 |
unless $implementation
|
|
49
|
0 |
1 |
if $@
|
|
53
|
1 |
0 |
if ($self and not $@) { }
|
|
|
0 |
0 |
elsif ($args{'failsafe'}) { }
|
|
|
0 |
0 |
elsif ($@) { }
|
|
61
|
0 |
0 |
if $@
|
|
90
|
0 |
3 |
if $self->{'_CLOSED'}
|
|
94
|
1 |
2 |
unless ($fh)
|
|
96
|
0 |
1 |
unless my $filename = $self->{'_FILENAME'}
|
|
98
|
0 |
1 |
unless $fh->open($filename, 'w')
|
|
114
|
0 |
3 |
unless $self->_open
|
|
120
|
0 |
6 |
if (ref $item eq 'HASH') { }
|
|
122
|
0 |
0 |
if (ref $item->{'content'} eq 'ARRAY') { }
|
|
155
|
2 |
0 |
if (ref $row eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (not ref $row) { }
|