Branch Coverage

blib/lib/Batch/Interpreter/TestSupport.pm
Criterion Covered Total %
branch 33 52 63.4


line true false branch
52 0 17 if ($help)
75 0 17 $record ? :
0 17 $complete ? :
91 2 232 /[\s\\\"]/ ? :
99 69 48 if (-e $hexname and not -e $filename)
100 0 69 unless open my $in, '<', $hexname
101 0 69 unless open my $out, '>:raw', $filename
121 0 58 unless open my $fh, '<:raw', $filename
136 0 49 if $type eq 'cmd'
142 2 47 if $attr->{'unix_nl'}
145 4 45 if $attr->{'filter_log'}
152 0 49 unless seek $fh, 0, 0
162 49 0 if ('SCALAR' eq ref $output) { }
175 0 25 if $attr->{'verbose'}
179 25 0 if ($attr->{'stdout'})
184 24 1 if ($attr->{'stderr'})
192 24 1 if ($stderr)
198 25 0 if ($stdout)
253 1 24 if ($test_attr->{'in_dir'})
276 1 24 if $test_attr->{'skip_stderr'}
281 0 25 if ($mode =~ /\brecord\b/)
282 0 0 unless $^O =~ /Win/
289 0 0 if ($mode eq 'record')
295 25 0 if ($mode =~ /\bcompare\b/)
309 0 25 if $test_attr->{'dump'}
317 1 24 if defined $olddir