| 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'}) |