line |
true |
false |
branch |
34
|
0 |
1 |
if ref $class |
41
|
0 |
1 |
if (ref $args[-1]) |
43
|
0 |
0 |
if (ref $options eq 'ARRAY') |
56
|
0 |
0 |
unless defined %$package |
59
|
0 |
0 |
if ($$self{'gz_package'}) { } |
65
|
0 |
0 |
unless $$options{'read_pipe'} |
66
|
0 |
0 |
unless $$options{'write_pipe'} |
69
|
0 |
0 |
if $$options{'read_pipe'} and not $$options{'read_pipe'} =~ /\|/ |
70
|
0 |
0 |
if $$options{'write_pipe'} and not $$options{'write_pipe'} =~ /\|/ |
75
|
0 |
0 |
if @args |
100
|
0 |
0 |
unless (defined $file) |
107
|
0 |
0 |
if ($mode eq '<') { } |
|
0 |
0 |
elsif ($mode eq '>') { } |
109
|
0 |
0 |
if ($$self{'gz_package'} and not $$options{'read_pipe'}) { } |
111
|
0 |
0 |
unless ($gz) |
131
|
0 |
0 |
if ($! or not $success) |
153
|
0 |
0 |
if ($$self{'gz_package'} and not $$options{'write_pipe'}) { } |
155
|
0 |
0 |
unless ($gz) |
174
|
0 |
0 |
if ($! or not $success) |
193
|
0 |
0 |
if $$self{'file'} |
211
|
0 |
0 |
if (defined $$self{'GZ'}) { } |
|
0 |
0 |
elsif (defined $$self{'FH'}) { } |
218
|
0 |
0 |
$line ? : |
221
|
0 |
0 |
if ($bytesread <= 0) |
241
|
0 |
0 |
if (defined $offset) |
248
|
0 |
0 |
if (defined $$self{'GZ'}) { } |
|
0 |
0 |
elsif (defined $$self{'FH'}) { } |
275
|
0 |
0 |
if (defined $$self{'GZ'}) { } |
|
0 |
0 |
elsif (defined $$self{'FH'}) { } |
300
|
0 |
0 |
defined $, ? : |
301
|
0 |
0 |
if defined $\ |
304
|
0 |
0 |
if (defined $$self{'GZ'}) { } |
|
0 |
0 |
elsif (defined $$self{'FH'}) { } |
310
|
0 |
0 |
unless $bytes_written = print($fh $buf) |
339
|
0 |
0 |
if (defined $offset) |
346
|
0 |
0 |
if (defined $$self{'GZ'}) { } |
|
0 |
0 |
elsif (defined $$self{'FH'}) { } |
372
|
1 |
0 |
unless $$self{'file'} |
375
|
0 |
0 |
if ($$self{'GZ'}) { } |
379
|
0 |
0 |
if ($$self{'mode'} eq '<') |
381
|
0 |
0 |
if ($success and $$self{'tell'} == -s $$self{'file_abs'}) |
386
|
0 |
0 |
unless $success |
391
|
0 |
0 |
if defined $fh |
392
|
0 |
0 |
unless $success |
423
|
0 |
0 |
if ($whence ne 1) |
427
|
0 |
0 |
if ($offset < 0) |
468
|
0 |
0 |
if (exists $$self{'FH'}) |
485
|
0 |
0 |
if (exists $$self{'FH'}) |