| line |
true |
false |
branch |
|
453
|
0 |
12 |
if @_ % 2 |
|
504
|
0 |
16 |
unless exists $$self{lc $_[$i]} |
|
523
|
1 |
0 |
if ($element ne uc $element) |
|
551
|
108 |
96 |
if (index($token, '<') != 0) |
|
561
|
1 |
95 |
unless $$self{'_tag'} |
|
565
|
42 |
53 |
if (index($$self{'_tag'}, '/') == 0) { } |
|
575
|
95 |
0 |
if ($$self{'pre'}) |
|
576
|
4 |
91 |
if (not $premode and $$self{'_tag'} eq 'PRE') { } |
|
|
3 |
159 |
elsif ($premode and $$self{'_tag'} eq '/PRE') { } |
|
589
|
17 |
71 |
if ($premode) |
|
621
|
6 |
6 |
if (@ret_errors) { } |
|
642
|
11 |
1 |
if ($$self{'mode'} eq 'allow') { } |
|
|
1 |
0 |
elsif ($$self{'mode'} eq 'deny') { } |
|
650
|
198 |
0 |
unless grep(($_ eq $tag), @allow) |
|
652
|
0 |
11 |
if $$self{'debug'} |
|
663
|
1 |
0 |
unless grep(($_ eq $tag), @deny) |
|
665
|
0 |
1 |
if $$self{'debug'} |
|
697
|
71 |
0 |
if ($$self{'check_http'}) |
|
698
|
65 |
6 |
if not $$self{'_element'} =~ m[
(http://
|mailto:
|ftp://
|telnet://
|file://
)
]six |
|
723
|
5 |
66 |
if ($$self{'img_to_link'}) |
|
739
|
0 |
71 |
if ($$self{'_element'} =~ tr/"// % 2) |
|
750
|
71 |
0 |
if (not $$self{'jscript'}) |
|
751
|
2 |
69 |
if ($$self{'_element'} =~ /javascript/i or $$self{'_element'} =~ /\son\w+\s*=/i) |
|
764
|
1 |
70 |
if (ref $$self{'check_attribs'}{$$self{'_abstag'}}) |
|
772
|
1 |
2 |
unless (grep(($attrib eq $_), @{$$self{'check_attribs'}{$$self{'_abstag'}};})) |
|
791
|
35 |
43 |
if (index($$self{'_tag'}, '/') == 0) { } |
|
|
35 |
8 |
elsif (not grep(($_ eq $$self{'_abstag'}), @{$$self{'nonpairtags'};})) { } |
|
793
|
35 |
0 |
if (not grep(($_ eq $$self{'_abstag'}), @{$$self{'nonpairtags'};})) |
|
795
|
33 |
2 |
if ($$self{'_opentags'}{$$self{'_abstag'}}) { } |
|
815
|
61 |
10 |
if ($$self{'mode'} eq 'allow') { } |
|
817
|
8 |
53 |
unless grep(($_ eq $$self{'_abstag'}), @{$$self{'_allow'};}) |
|
821
|
6 |
4 |
if grep(($_ eq $$self{'_abstag'}), @{$$self{'_deny'};}) |
|
836
|
0 |
21 |
if ($$self{'html'}) { } |
|
860
|
4 |
26 |
if ($count) |