Branch Coverage

blib/lib/Capture/Tiny/Extended.pm
Criterion Covered Total %
branch 74 112 66.0


line true false branch
16 0 916 unless eval { do { require PerlIO; 'PerlIO'->can('get_layers') } }
65 0 891969 unless open $_[0], $_[1]
66 1783938 0 defined $_ ? :
70 0 385600 unless close $_[0]
71 385600 0 defined $_[0] ? :
78 16443 71947 unless (defined fileno STDIN)
80 2205 14238 if (defined $dup{'stdin'}) { }
82 2205 0 defined fileno STDIN ? :
86 14238 0 defined fileno STDIN ? :
90 16443 0 if $] >= 5.008
92 14238 74152 unless (defined fileno STDOUT)
94 0 14238 if (defined $dup{'stdout'}) { }
96 0 0 defined fileno STDOUT ? :
100 14238 0 defined fileno STDOUT ? :
104 14238 0 if $] >= 5.008
106 14238 74152 unless (defined fileno STDERR)
108 0 14238 if (defined $dup{'stderr'}) { }
110 0 0 defined fileno STDERR ? :
114 14238 0 defined fileno STDERR ? :
118 14238 0 if $] >= 5.008
129 42174 2115 unless ($proxy_count{$p})
131 42174 0 unless $] < 5.008
176 0 41855 if ($IS_WIN32) { }
179 0 0 unless $@
181 0 0 if not defined $os_fhandle or $os_fhandle == INVALID_HANDLE_VALUE()
182 0 0 if (SetHandleInformation($os_fhandle, HANDLE_FLAG_INHERIT(), 0)) { }
200 0 41855 if (not defined $pid) { }
902 40953 elsif ($pid == 0) { }
221 21151 0 defined $ENV{'PERL_CAPTURE_TINY_TIMEOUT'} ? :
224 0 21151 unless _files_exist(@files)
230 0 21151 if ($IS_WIN32) { }
267 9324 79066 if grep {$_ eq 'scalar';} @{$layers{'stdin'};}
268 7119 81271 if grep {$_ eq 'scalar';} @{$layers{'stdout'};}
269 7119 81271 if grep {$_ eq 'scalar';} @{$layers{'stderr'};}
270 7119 81271 if tied *STDOUT and $] >= 5.008
271 7119 81271 if tied *STDERR and $] >= 5.008
287 22053 66337 if $tee_stdout
288 19802 68047 if $tee_stderr
289 21151 66337 if $tee_stdout or $tee_stderr
291 16470 71018 if $merge
298 9234 78254 if $localize{'stdin'}
299 16470 71018 if $merge
302 71018 16470 unless $merge
318 21151 65435 if $tee_stdout or $tee_stderr
321 70116 16470 unless $merge
324 16470 70116 $merge ? :
325 0 86586 if $localize{'stdout'} and $tee_stdout
326 0 70116 if not $merge and $localize{'stderr'} and $tee_stdout
328 1 86585 if $inner_error
329 1 86585 if $outer_error
331 16470 0 wantarray ? :
16470 70115 if $merge
332 48874 21241 wantarray ? :
342 176780 0 unless $$files{$target}
344 0 0 if $$files{'new_files'} and _files_exist($$files{$target})
348 0 0 if $$files{'clobber'}