| line |
true |
false |
branch |
|
206
|
0 |
8 |
unless defined $source |
|
210
|
3 |
5 |
if (not $type) { } |
|
|
0 |
5 |
elsif ($type eq 'FH') { } |
|
212
|
0 |
3 |
unless open FH, "<$source" |
|
233
|
5 |
0 |
if ($type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'CODE') { } |
|
240
|
5 |
0 |
unless defined $$source |
|
250
|
0 |
0 |
unless print $fh $$source |
|
258
|
0 |
0 |
unless print $fh @$source |
|
266
|
0 |
0 |
unless defined $data |
|
267
|
0 |
0 |
unless print $fh $data |
|
272
|
0 |
0 |
if $seekit |
|
276
|
0 |
3 |
unless defined $fh |
|
286
|
0 |
8 |
if ($type eq 'SCALAR' and $dest == \(undef)) { } |
|
|
0 |
8 |
elsif ($type eq 'FH') { } |
|
|
8 |
0 |
elsif (not $type) { } |
|
304
|
0 |
8 |
unless open FH, ">$dest" |
|
326
|
0 |
0 |
if $type eq 'SCALAR' and $dest == \(undef) |
|
328
|
0 |
0 |
unless seek $fh, 0, 0 |
|
330
|
0 |
0 |
if ($type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'CODE') { } |
|
338
|
0 |
0 |
unless defined $count |
|
341
|
0 |
0 |
unless $count |
|
386
|
0 |
24 |
if eval {
do {
$redir->isa('IO::Handle')
}
} |
|
388
|
0 |
24 |
$type eq 'GLOB' ? : |
|
404
|
0 |
8 |
@_ && ref $_[-1] eq 'HASH' ? : |
|
413
|
8 |
0 |
if (ref $cmd) { } |
|
414
|
0 |
8 |
unless @$cmd |
|
415
|
0 |
8 |
unless defined $cmd->[0] |
|
416
|
0 |
8 |
unless length $cmd->[0] |
|
418
|
0 |
0 |
unless @_ |
|
419
|
0 |
0 |
unless defined $cmd |
|
420
|
0 |
0 |
unless length $cmd |
|
427
|
0 |
8 |
if ($fh_cache_pid != $$) |
|
439
|
8 |
0 |
if defined $stdin |
|
442
|
8 |
0 |
if defined $stdout |
|
450
|
8 |
0 |
$tie_err_to_out ? : |
|
|
8 |
0 |
if defined $stderr |
|
457
|
8 |
0 |
if defined $in_fh |
|
461
|
8 |
0 |
if defined $out_fh |
|
463
|
8 |
0 |
if defined $err_fh |
|
470
|
8 |
0 |
if defined $in_fh |
|
478
|
8 |
0 |
if defined $out_fh |
|
482
|
8 |
0 |
if defined $err_fh |
|
494
|
8 |
0 |
ref $cmd ? : |
|
503
|
0 |
8 |
unless (defined $r and $r != -1) |
|
521
|
8 |
0 |
if (defined $saved_fd0) |
|
528
|
8 |
0 |
if defined $out_fh |
|
530
|
8 |
0 |
if defined $err_fh |
|
533
|
0 |
8 |
if @errs |
|
535
|
0 |
8 |
unless $ok |
|
537
|
0 |
8 |
if defined $out_fh and $out_type and $out_type ne 'FH' |
|
539
|
0 |
0 |
if defined $err_fh and $err_type and $err_type ne 'FH' and not $tie_err_to_out |