| line |
true |
false |
branch |
|
17
|
0 |
1 |
unless eval {
do {
require PerlIO;
1
}
} |
|
53
|
0 |
8 |
if $_ ne 'unix' and $_ ne 'perlio' |
|
65
|
0 |
18 |
unless open $_[0], $_[1] |
|
66
|
36 |
0 |
defined $_ ? : |
|
70
|
0 |
6 |
unless close $_[0] |
|
71
|
6 |
0 |
defined $_[0] ? : |
|
78
|
0 |
2 |
unless (defined fileno STDIN) |
|
80
|
0 |
0 |
if (defined $dup{'stdin'}) { } |
|
82
|
0 |
0 |
defined fileno STDIN ? : |
|
86
|
0 |
0 |
defined fileno STDIN ? : |
|
90
|
0 |
0 |
if $] >= 5.008 |
|
92
|
0 |
2 |
unless (defined fileno STDOUT) |
|
94
|
0 |
0 |
if (defined $dup{'stdout'}) { } |
|
96
|
0 |
0 |
defined fileno STDOUT ? : |
|
100
|
0 |
0 |
defined fileno STDOUT ? : |
|
104
|
0 |
0 |
if $] >= 5.008 |
|
106
|
0 |
2 |
unless (defined fileno STDERR) |
|
108
|
0 |
0 |
if (defined $dup{'stderr'}) { } |
|
110
|
0 |
0 |
defined fileno STDERR ? : |
|
114
|
0 |
0 |
defined fileno STDERR ? : |
|
118
|
0 |
0 |
if $] >= 5.008 |
|
129
|
0 |
0 |
unless ($proxy_count{$p}) |
|
131
|
0 |
0 |
unless $] < 5.008 |
|
176
|
0 |
0 |
if ($IS_WIN32) { } |
|
178
|
0 |
0 |
unless $@ |
|
180
|
0 |
0 |
if not defined $os_fhandle or $os_fhandle == INVALID_HANDLE_VALUE() |
|
181
|
0 |
0 |
if (SetHandleInformation($os_fhandle, HANDLE_FLAG_INHERIT(), 0)) { } |
|
199
|
0 |
0 |
if (not defined $pid) { } |
|
|
0 |
0 |
elsif ($pid == 0) { } |
|
221
|
0 |
0 |
unless _files_exist(@files) |
|
227
|
0 |
0 |
if ($IS_WIN32) { } |
|
264
|
0 |
2 |
if grep {$_ eq 'scalar';} @{$layers{'stdin'};} |
|
265
|
0 |
2 |
if grep {$_ eq 'scalar';} @{$layers{'stdout'};} |
|
266
|
0 |
2 |
if grep {$_ eq 'scalar';} @{$layers{'stderr'};} |
|
267
|
0 |
2 |
if tied *STDOUT and $] >= 5.008 |
|
268
|
0 |
2 |
if tied *STDERR and $] >= 5.008 |
|
284
|
0 |
2 |
if $tee_stdout |
|
285
|
0 |
2 |
if $tee_stderr |
|
286
|
0 |
2 |
if $tee_stdout or $tee_stderr |
|
288
|
2 |
0 |
if $merge |
|
295
|
0 |
2 |
if $localize{'stdin'} |
|
296
|
2 |
0 |
if $merge |
|
299
|
0 |
2 |
unless $merge |
|
309
|
0 |
2 |
if $tee_stdout or $tee_stderr |
|
312
|
0 |
2 |
unless $merge |
|
315
|
2 |
0 |
$merge ? : |
|
316
|
0 |
2 |
if $localize{'stdout'} and $tee_stdout |
|
317
|
0 |
0 |
if not $merge and $localize{'stderr'} and $tee_stdout |
|
320
|
2 |
0 |
if $merge |
|
321
|
0 |
0 |
wantarray ? : |