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 ? : |