| line |
true |
false |
branch |
|
17
|
0 |
3306 |
unless eval {
do {
require PerlIO;
'PerlIO'->can('get_layers')
}
} |
|
107
|
0 |
7485730 |
unless open $_[0], $_[1] |
|
113
|
0 |
3086260 |
unless close $_[0] |
|
120
|
138870 |
905298 |
unless (defined fileno STDIN) |
|
122
|
31830 |
107040 |
if (defined $dup{'stdin'}) { } |
|
132
|
138870 |
0 |
if $] >= 5.008 |
|
134
|
107040 |
937128 |
unless (defined fileno STDOUT) |
|
136
|
0 |
107040 |
if (defined $dup{'stdout'}) { } |
|
146
|
107040 |
0 |
if $] >= 5.008 |
|
148
|
107040 |
937128 |
unless (defined fileno STDERR) |
|
150
|
0 |
107040 |
if (defined $dup{'stderr'}) { } |
|
160
|
107040 |
0 |
if $] >= 5.008 |
|
171
|
319680 |
31590 |
unless ($proxy_count{$p}) |
|
173
|
319680 |
0 |
unless $] < 5.008 |
|
182
|
1044168 |
2088336 |
if $h eq 'stdin' and not $IS_WIN32 |
|
183
|
0 |
2088336 |
$h eq 'stdin' ? : |
|
193
|
3282 |
2078489 |
if defined $handles->{'stdin'} |
|
194
|
2081771 |
0 |
if defined $handles->{'stdout'} |
|
195
|
2081771 |
0 |
if defined $handles->{'stderr'} |
|
219
|
0 |
372925 |
if ($IS_WIN32) { } |
|
242
|
0 |
372925 |
if (not defined $pid) { } |
|
|
3282 |
369643 |
elsif ($pid == 0) { } |
|
259
|
437822 |
53934735 |
if @_ == grep({-f $_;} @_) |
|
260
|
53934735 |
0 |
if $have_usleep |
|
269
|
218911 |
0 |
defined $ENV{'PERL_CAPTURE_TINY_TIMEOUT'} ? : |
|
271
|
0 |
218911 |
unless _files_exist(@files) |
|
277
|
0 |
218911 |
if ($IS_WIN32) { } |
|
294
|
0 |
1832073 |
unless seek $fh, $pos, 0 |
|
296
|
1832071 |
2 |
defined $text ? : |
|
306
|
926297 |
117871 |
$do_stdout ? : |
|
|
918092 |
126076 |
$do_stderr ? : |
|
307
|
0 |
1044168 |
unless @opts % 2 == 0 |
|
312
|
0 |
10 |
unless ref $fh eq 'GLOB' or &blessed($fh) and $fh->isa('IO::Seekable') |
|
328
|
107040 |
937128 |
if tied *STDOUT and &reftype(tied *STDOUT) eq 'GLOB' |
|
330
|
107040 |
937128 |
if tied *STDERR and &reftype(tied *STDERR) eq 'GLOB' |
|
337
|
85350 |
958818 |
if grep {$_ eq 'scalar';} @{$layers{'stdin'};} |
|
339
|
53520 |
990648 |
if $do_stdout and grep {$_ eq 'scalar';} @{$layers{'stdout'};} |
|
341
|
53520 |
990648 |
if $do_stderr || $do_merge and grep {$_ eq 'scalar';} @{$layers{'stderr'};} |
|
342
|
246900 |
797268 |
if tied *STDIN and $] >= 5.008 |
|
344
|
154800 |
771497 |
if $do_stdout and tied *STDOUT and $] >= 5.008 |
|
346
|
154800 |
763292 |
if $do_stderr || $do_merge and tied *STDERR and $] >= 5.008 |
|
353
|
107040 |
937128 |
if $proxy_std{'stdout'} |
|
354
|
107040 |
937128 |
if $proxy_std{'stderr'} |
|
361
|
0 |
1843158 |
unless seek $stash->{'capture'}{$_}, 0, 2 |
|
364
|
372925 |
1470233 |
if $do_tee |
|
366
|
218911 |
821975 |
if $do_tee |
|
368
|
96711 |
944175 |
if $do_merge |
|
375
|
331210 |
709676 |
if $localize{'stdin'} |
|
377
|
923425 |
117461 |
if $do_stdout |
|
378
|
915220 |
125666 |
if $do_stderr |
|
385
|
920142 |
117461 |
if $do_stdout |
|
386
|
911937 |
125666 |
if $do_stderr |
|
394
|
920142 |
117461 |
if $do_stdout |
|
395
|
911937 |
125666 |
if $do_stderr |
|
398
|
218911 |
818692 |
if $do_tee |
|
402
|
1037600 |
3 |
if ($orig_pid == $$ and defined wantarray || $do_tee && keys %localize) |
|
409
|
0 |
189956 |
if $do_stdout and $do_tee and $localize{'stdout'} |
|
411
|
0 |
178456 |
if $do_stderr and $do_tee and $localize{'stderr'} |
|
414
|
1 |
1037602 |
if $inner_error |
|
415
|
1 |
1037602 |
if $outer_error |
|
417
|
3 |
1037599 |
unless defined wantarray |
|
419
|
920138 |
117461 |
if $do_stdout |
|
420
|
815222 |
222377 |
if $do_stderr and not $do_merge |
|
422
|
555053 |
482546 |
wantarray ? : |