| line |
true |
false |
branch |
|
161
|
0 |
0 |
if ($param eq ':auto') { } |
|
166
|
0 |
0 |
if $@ |
|
170
|
0 |
0 |
if $@ |
|
184
|
0 |
0 |
if ($opts{'_must_override'}) |
|
201
|
0 |
3 |
if ($opts{'_must_override'}) |
|
276
|
0 |
9 |
if ($s) { } |
|
|
9 |
0 |
elsif (not ref $file) { } |
|
312
|
22 |
0 |
unless exists $self->{'opts'}{'fatal'} |
|
421
|
1 |
3 |
unless defined $s and length $s |
|
479
|
9 |
21 |
unless defined $file |
|
480
|
4 |
17 |
if (ref $file eq 'SCALAR') { } |
|
|
0 |
17 |
elsif (ref $file) { } |
|
|
4 |
13 |
elsif ($self->{'opts'}{'gzip'} or not defined $self->{'opts'}{'gzip'} and $file =~ /.gz$/) { } |
|
481
|
0 |
4 |
if $self->{'opts'}{'gzip'} |
|
482
|
4 |
0 |
if ($] >= 5.008) { } |
|
489
|
0 |
0 |
if $self->{'opts'}{'gzip'} |
|
494
|
0 |
4 |
unless eval {
do {
require Compress::Zlib
}
} |
|
500
|
2 |
2 |
unless ($mode eq '>') |
|
501
|
0 |
2 |
unless my $gz = Compress::Zlib::gzopen($file, 'rb') |
|
508
|
0 |
2 |
if ($Compress::Zlib::gzerrno != Compress::Zlib::Z_STREAM_END()) |
|
516
|
0 |
13 |
unless $fh = 'FileHandle'->new("$mode$file") |
|
535
|
2 |
4 |
if ($fh and $self->mode eq '>' and $self->{'opts'}{'gzip'}) |
|
537
|
2 |
0 |
if $level == 1 |
|
539
|
0 |
2 |
if (ref $file) { } |
|
543
|
0 |
2 |
unless my $gz = Compress::Zlib::gzopen($file, "wb$level") |
|
547
|
0 |
508 |
unless $gz->gzwrite($_) |
|
553
|
21 |
22 |
if ($self->mode) |
|
554
|
0 |
21 |
unless $fh->close |
|
|
21 |
0 |
if ($fh) |
|
580
|
1 |
14 |
wantarray ? : |