Branch Coverage

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


line true false branch
31 1 2 if ($$self{'autoDeleteHeader'})
35 2 0 if ($$tmpl =~ s/(^.+?'"]*|".*?"|'.*?')+>)//ism) { }
51 5 0 if (@_)
53 3 2 if $newvalue == $$s{'autoDeleteHeader'}
74 2 4 substr($tag, 0, 1) eq '/' ? :
76 4 2 if ($type eq 'S') { }
2 0 elsif ($type eq 'E') { }
91 2 0 exists $$s{'header'} ? :
117 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]"?])