Branch Coverage

blib/lib/HTML/Template/Pro/Extension/HEAD_BODY.pm
Criterion Covered Total %
branch 12 18 66.6


line true false branch
34 2 2 if ($$self{'autoDeleteHeader'})
36 2 0 if ($$tmpl =~ s/(^.+?'"]*|".*?"|'.*?')+>)//ism) { }
52 5 0 if (@_)
54 4 1 if $newvalue == $$s{'autoDeleteHeader'}
71 2 4 substr($tag, 0, 1) eq '/' ? :
73 4 2 if ($type eq 'S') { }
2 0 elsif ($type eq 'E') { }
88 1 0 exists $$s{'header'} ? :
114 0 0 if ($$_[0] =~ /[Rr][Ee][Ll]\s*=\s*"?[Ss][Tt][Yy][Ll][Ee][Ss][Hh][Ee][Ee][Tt]"?/ and $$_[0] =~ m[[Tt][Yy][Pp][Ee]\s*=\s*"?[Tt][Te][Xx][Tt]/[Cc][Ss][Ss]"?])