| line |
true |
false |
branch |
|
118
|
17 |
26 |
if ($rules) |
|
120
|
1 |
17 |
if (lc $tag_name ne $tag_name) |
|
123
|
17 |
0 |
if (&reftype($rules->{$tag_name}) eq "ARRAY") |
|
126
|
7 |
19 |
ref $attr_item eq 'HASH' ? : |
|
131
|
1 |
26 |
if lc $_ ne $_ |
|
145
|
0 |
195 |
if $self->debug |
|
148
|
161 |
34 |
if (&any(sub {
$_ eq $tagname;
}
, keys %{$self->get_rules;})) { } |
|
|
4 |
30 |
elsif ($tagname eq 'img' and $self->replace_img) { } |
|
|
4 |
26 |
elsif ($tagname eq 'br' and $self->create_newlines) { } |
|
|
3 |
23 |
elsif ($tagname eq 'p' and $self->create_newlines) { } |
|
|
4 |
19 |
elsif (&any(sub {
$_ eq $tagname;
}
, @{$self->strip_enclosed_content;})) { } |
|
149
|
0 |
161 |
if $self->debug |
|
169
|
152 |
331 |
if ($link) |
|
176
|
147 |
5 |
if (defined $url->scheme) { } |
|
180
|
136 |
11 |
if &none(sub {
$_ eq $url->scheme;
}
, grep({defined $_;} @{$self->get_uri_schemes;})) |
|
185
|
1 |
4 |
unless grep {not defined $_;} @{$self->get_uri_schemes;} |
|
192
|
13 |
168 |
if (ref $attr_item eq 'HASH') { } |
|
202
|
2 |
11 |
if (ref $rule eq 'CODE') { } |
|
|
8 |
3 |
elsif ($value =~ /$rule/) { } |
|
205
|
1 |
1 |
unless defined $value |
|
220
|
22 |
146 |
if (exists $attr->{$attr_name}) |
|
223
|
22 |
0 |
unless $attr_name eq "/" |
|
230
|
0 |
161 |
if (exists $attr->{'/'} and $attr->{'/'} eq "/") |
|
242
|
2 |
2 |
if (ref $self->replace_img) { } |
|
248
|
2 |
0 |
defined $attr->{'alt'} ? : |
|
263
|
0 |
4 |
if $self->debug |
|
274
|
0 |
183 |
if $self->debug |
|
275
|
159 |
24 |
if (&any(sub {
$_ eq $tagname;
}
, keys %{$self->get_rules;})) { } |
|
|
3 |
21 |
elsif (&any(sub {
$_ eq $tagname;
}
, @{$self->_stripper_stack;})) { } |
|
289
|
2 |
203 |
if $self->debug |
|
290
|
1 |
204 |
if (ref $self->filter_text) { } |
|
|
201 |
3 |
elsif ($self->filter_text) { } |
|
296
|
203 |
2 |
if (not @{$self->_stripper_stack;}) |
|
306
|
0 |
6 |
if $self->debug |
|
307
|
2 |
4 |
if ($self->allow_comments) |
|
317
|
3 |
0 |
if $self->debug |
|
318
|
2 |
1 |
if ($self->allow_declaration) |
|
332
|
1 |
200 |
unless @_ |
|
333
|
2 |
198 |
unless $_[0] |
|
336
|
0 |
198 |
unless ref \$content eq "SCALAR" |
|
346
|
188 |
10 |
if ($self->trim and $text) |
|
369
|
4 |
3 |
if ($tag eq $closing_tag and $found == 0) |
|
407
|
1 |
6 |
defined $2 ? : |
|
|
4 |
7 |
defined $1 ? : |