| line | % | coverage | branch |
|---|
| 17 | 50 | T | F | unless eval {
do {
require PerlIO;
"PerlIO"->can("get_layers")
}
} |
| 107 | 50 | T | F | unless open $_[0], $_[1] |
| 113 | 50 | T | F | unless close $_[0] |
| 120 | 50 | T | F | unless (defined fileno STDIN) |
| 122 | 0 | T | F | if (defined $dup{'stdin'}) { } |
| 132 | 0 | T | F | if $] >= "5.008" |
| 134 | 50 | T | F | unless (defined fileno STDOUT) |
| 136 | 0 | T | F | if (defined $dup{'stdout'}) { } |
| 146 | 0 | T | F | if $] >= "5.008" |
| 148 | 50 | T | F | unless (defined fileno STDERR) |
| 150 | 0 | T | F | if (defined $dup{'stderr'}) { } |
| 160 | 0 | T | F | if $] >= "5.008" |
| 171 | 0 | T | F | unless ($proxy_count{$p}) |
| 173 | 0 | T | F | unless $] < "5.008" |
| 182 | 100 | T | F | if $h eq "stdin" and not $IS_WIN32 |
| 183 | 50 | T | F | $h eq 'stdin' ? : |
| 193 | 50 | T | F | if defined $handles->{'stdin'} |
| 194 | 50 | T | F | if defined $handles->{'stdout'} |
| 195 | 50 | T | F | if defined $handles->{'stderr'} |
| 219 | 0 | T | F | if ($IS_WIN32) { } |
| 242 | 0 | T | F | if (not defined $pid) { } |
| 0 | T | F | elsif ($pid == 0) { } |
| 259 | 0 | T | F | if @_ == grep({-f $_;} @_) |
| 260 | 0 | T | F | if $have_usleep |
| 269 | 0 | T | F | defined $ENV{'PERL_CAPTURE_TINY_TIMEOUT'} ? : |
| 271 | 0 | T | F | unless _files_exist(@files) |
| 277 | 0 | T | F | if ($IS_WIN32) { } |
| 294 | 50 | T | F | unless seek $fh, $pos, 0 |
| 296 | 50 | T | F | defined $text ? : |
| 306 | 50 | T | F | $do_stdout ? : |
| 50 | T | F | $do_stderr ? : |
| 307 | 50 | T | F | unless @opts % 2 == 0 |
| 312 | 0 | T | F | unless ref $fh eq "GLOB" or &blessed($fh) and $fh->isa("IO::Seekable") |
| 328 | 50 | T | F | if tied *STDOUT and &reftype(tied *STDOUT) eq "GLOB" |
| 330 | 50 | T | F | if tied *STDERR and &reftype(tied *STDERR) eq "GLOB" |
| 337 | 50 | T | F | if grep {$_ eq "scalar";} @{$layers{"stdin"};} |
| 339 | 50 | T | F | if $do_stdout and grep {$_ eq "scalar";} @{$layers{"stdout"};} |
| 341 | 50 | T | F | if $do_stderr || $do_merge and grep {$_ eq "scalar";} @{$layers{"stderr"};} |
| 342 | 50 | T | F | if tied *STDIN and $] >= "5.008" |
| 344 | 50 | T | F | if $do_stdout and tied *STDOUT and $] >= "5.008" |
| 346 | 50 | T | F | if $do_stderr || $do_merge and tied *STDERR and $] >= "5.008" |
| 353 | 50 | T | F | if $proxy_std{'stdout'} |
| 354 | 50 | T | F | if $proxy_std{'stderr'} |
| 361 | 50 | T | F | unless seek $stash->{'capture'}{$_}, 0, 2 |
| 364 | 50 | T | F | if $do_tee |
| 366 | 50 | T | F | if $do_tee |
| 368 | 50 | T | F | if $do_merge |
| 375 | 50 | T | F | if $localize{'stdin'} |
| 377 | 50 | T | F | if $do_stdout |
| 378 | 50 | T | F | if $do_stderr |
| 385 | 50 | T | F | if $do_stdout |
| 386 | 50 | T | F | if $do_stderr |
| 394 | 50 | T | F | if $do_stdout |
| 395 | 50 | T | F | if $do_stderr |
| 398 | 50 | T | F | if $do_tee |
| 402 | 50 | T | F | if ($orig_pid == $$ and defined wantarray || $do_tee && keys %localize) |
| 409 | 0 | T | F | if $do_stdout and $do_tee and $localize{'stdout'} |
| 411 | 0 | T | F | if $do_stderr and $do_tee and $localize{'stderr'} |
| 414 | 100 | T | F | if $inner_error |
| 415 | 50 | T | F | if $outer_error |
| 417 | 50 | T | F | unless defined wantarray |
| 419 | 50 | T | F | if $do_stdout |
| 420 | 50 | T | F | if $do_stderr and not $do_merge |
| 422 | 50 | T | F | wantarray ? : |