Branch Coverage

tlib/Test/Tech.pm
Criterion Covered Total %
branch 11 44 25.0


line true false branch
139 3 1 unless $var_p
142 0 1 if ($ref = ref $var_p) { }
143 0 0 if ($ref eq 'ARRAY') { }
0 0 elsif ($ref eq 'HASH') { }
144 0 0 if (1 < @$var_p) { }
188 0 1 if (defined &Win32::BuildNumber and defined &Win32::BuildNumber()) { }
0 1 elsif (defined $MacPerl::Version) { }
195 0 1 unless 1.2 < $Test::VERSION
223 1 0 if $name
224 0 1 if ($$tech_p{'Skip_Tests'})
241 1 0 if $name
243 0 1 if ($$tech_p{'Skip_Tests'})
261 1 0 if defined $value
292 0 0 if (defined $$key_p{$key})
297 0 0 if (ref $$key_p{$key} eq 'HASH') { }
301 0 0 if (@keys)
316 0 0 if ref $current_value eq 'HASH'
317 0 0 if (defined $values[0])
318 0 0 if (ref $$key_p{$key} eq 'ARRAY') { }
0 0 elsif (ref $$key_p{$key}) { }
319 0 0 if (ref $values[0] eq 'ARRAY') { }
373 0 0 unless @expression_results