Branch Coverage

blib/lib/Embperl/Syntax/EmbperlBlocks.pm
Criterion Covered Total %
branch 21 30 70.0


line true false branch
52 1 0 unless ($$self{-'epbBlocks'})
54 0 1 ref $exchange ? :
59 0 1 ref $exchange ? :
81 0 20 unless $ttref = $$self{-'epbBlocks'}{$tagtype}
84 9 11 ref $taginfo eq 'HASH' ? :
92 19 1 if $procinfo
94 0 20 unless $ttref = $$self{-'epbBlocksLink'}{$tagtype}
97 9 11 ref $taginfo eq 'HASH' ? :
105 19 1 if $procinfo
165 1 0 ref $taginfostart eq 'HASH' ? :
199 1 28 unless ($$self{-'epbHTMLInit'})
212 2 0 if (not $k1 =~ /^-/ and ref $v1 eq 'HASH')
215 2 0 if (ref $follow eq 'HASH')
219 6 2 if (ref $v2 eq 'HASH')
239 2 0 if (ref $v2 eq 'HASH')