Branch Coverage

blib/lib/HTML/Restrict.pm
Criterion Covered Total %
branch 69 80 86.2


line true false branch
106 16 22 if ($rules)
108 1 16 if (lc $tag_name ne $tag_name)
111 16 0 if (&reftype($rules->{$tag_name}) eq 'ARRAY')
114 7 19 ref $attr_item eq 'HASH' ? :
119 1 26 if lc $_ ne $_
133 0 182 if $self->debug
136 160 22 if (&any(sub { $_ eq $tagname; } , keys %{$self->get_rules;})) { }
4 18 elsif ($tagname eq 'img' and $self->replace_img) { }
4 14 elsif (&any(sub { $_ eq $tagname; } , @{$self->strip_enclosed_content;})) { }
137 0 160 if $self->debug
157 152 328 if ($link)
164 147 5 if (defined $url->scheme) { }
167 136 11 if &none(sub { $_ eq $url->scheme; } , grep({defined $_;} @{$self->get_uri_schemes;}))
172 1 4 unless grep {not defined $_;} @{$self->get_uri_schemes;}
179 13 168 if (ref $attr_item eq 'HASH') { }
189 2 11 if (ref $rule eq 'CODE') { }
8 3 elsif ($value =~ /$rule/) { }
192 1 1 unless defined $value
207 22 146 if (exists $attr->{$attr_name})
210 22 0 unless $attr_name eq '/'
217 0 160 if (exists $attr->{'/'} and $attr->{'/'} eq '/')
229 2 2 if (ref $self->replace_img) { }
234 2 0 defined $attr->{'alt'} ? :
243 0 4 if $self->debug
254 0 177 if $self->debug
255 159 18 if (&any(sub { $_ eq $tagname; } , keys %{$self->get_rules;})) { }
3 15 elsif (&any(sub { $_ eq $tagname; } , @{$self->_stripper_stack;})) { }
269 2 178 if $self->debug
271 178 2 if (not @{$self->_stripper_stack;})
281 0 6 if $self->debug
282 2 4 if ($self->allow_comments)
292 3 0 if $self->debug
293 2 1 if ($self->allow_declaration)
307 1 191 unless @_
308 2 189 unless $_[0]
311 0 189 unless ref \$content eq 'SCALAR'
321 179 10 if ($self->trim and $text)
344 4 3 if ($tag eq $closing_tag and $found == 0)
382 1 4 defined $2 ? :
4 5 defined $1 ? :