Branch Coverage

blib/lib/HTML/HeadParser.pm
Criterion Covered Total %
branch 48 58 82.7


line true false branch
113 1 7 unless ($header)
144 1 13 unless @_
162 0 13 if $DEBUG
163 7 6 if ($tag eq "title")
165 2 5 if $self->utf8_mode and defined &utf8::decode
167 2 5 if $decoded
196 0 47 if $DEBUG
197 3 44 if $self->{'tag'}
198 20 27 if ($tag eq 'meta') { }
4 23 elsif ($tag eq 'base') { }
0 23 elsif ($tag eq 'isindex') { }
13 10 elsif ($tag =~ /^(?:title|noscript|object|command)$/) { }
6 4 elsif ($tag eq 'link') { }
4 0 elsif ($tag eq 'head' or $tag eq 'html') { }
200 13 7 unless (defined $key and length $key)
201 10 3 if ($attr->{'name'}) { }
3 0 elsif ($attr->{'charset'}) { }
214 0 4 unless exists $attr->{'href'}
225 0 6 unless exists $attr->{'href'}
231 3 13 if $_ eq "/"
246 0 12 if $DEBUG
247 10 2 if $self->{'tag'}
248 1 11 if $tag eq "head"
254 0 71 if $DEBUG
255 8 63 unless ($self->{'first_chunk'})
257 2 6 if ($self->utf8_mode) { }
266 5 66 if (not $tag and $text =~ /\S/)
271 59 7 if $tag ne "title"
276 0 2 unless &HTML::Entities::UNICODE_SUPPORT()