| line |
true |
false |
branch |
|
107
|
27 |
11376 |
if defined $runaway |
|
108
|
3184 |
8219 |
if defined $text |
|
111
|
3860 |
7543 |
if (defined $tag) { } |
|
|
21 |
7522 |
elsif (defined $doctype) { } |
|
|
20 |
7502 |
elsif (defined $comment) { } |
|
|
7 |
7495 |
elsif (defined $cdata) { } |
|
|
18 |
7477 |
elsif (defined $pi) { } |
|
114
|
1703 |
2157 |
if ($tag =~ m[^/\s*(\S+)]u) { } |
|
|
2157 |
0 |
elsif ($tag =~ m[^([^\s/]+)([\s\S]*)]u) { } |
|
115
|
93 |
1610 |
$xml ? : |
|
118
|
15 |
1688 |
if (not $xml and my $tags = $NO_MORE_CONTENT{$end}) |
|
125
|
112 |
2045 |
$xml ? : |
|
130
|
47 |
34170 |
$xml ? : |
|
133
|
64 |
34153 |
if $key eq "/" |
|
135
|
34125 |
28 |
defined $value ? : |
|
139
|
1 |
2156 |
if not $xml and $start eq "image" |
|
143
|
173 |
1984 |
if not $xml and $EMPTY{$start} or $xml || !$BLOCK{$start} and $closing |
|
146
|
2082 |
75 |
if $xml or not $RAW{$start} || $RCDATA{$start} |
|
148
|
36 |
39 |
if ($start eq "script") |
|
150
|
19 |
17 |
if length $script |
|
151
|
35 |
1 |
if $found_end |
|
155
|
0 |
39 |
unless $html =~ m[\G(.*?))]cgisu |
|
156
|
33 |
6 |
$RCDATA{$start} ? : |
|
172
|
11 |
7 |
if not exists $self->{'xml'} and $pi =~ /xml/iu |
|
194
|
581 |
9782 |
if $next->[0] eq "root" |
|
197
|
3 |
9779 |
if $SCOPE{$next->[1]} and $next->[1] ne $end |
|
200
|
2006 |
7773 |
if $next->[1] eq $end |
|
203
|
6 |
7748 |
if not $xml and $PHRASING{$end} and not $PHRASING{$next->[1]} |
|
219
|
1405 |
1096 |
if ($type eq "tag") |
|
228
|
2 |
35 |
$xml ? : |
|
|
37 |
1635 |
unless defined $value |
|
233
|
461 |
25 |
$EMPTY{$tag} ? : |
|
|
5 |
486 |
$xml ? : |
|
|
491 |
914 |
unless $tree->[4] |
|
244
|
553 |
543 |
if $type eq "text" |
|
247
|
392 |
151 |
if $type eq "raw" |
|
250
|
137 |
14 |
if $type eq "root" |
|
253
|
4 |
10 |
if $type eq "doctype" |
|
256
|
4 |
6 |
if $type eq "comment" |
|
259
|
3 |
3 |
if $type eq "cdata" |
|
262
|
3 |
0 |
if $type eq "pi" |
|
275
|
49 |
9 |
if ($state == 0) { } |
|
279
|
1 |
57 |
if $p >= length $$html |
|
281
|
48 |
9 |
if ($state == 0) { } |
|
|
6 |
3 |
elsif ($state == 1) { } |
|
282
|
33 |
15 |
if ($$html =~ m[\G)]cgisu) { } |
|
|
4 |
11 |
elsif ($$html =~ /\G/cgsu) { } |
|
|
3 |
0 |
elsif ($$html =~ m[\G])]cgisu) { } |
|
293
|
2 |
1 |
if ($$html =~ m[\G)]cgisu) { } |
|
|
1 |
0 |
elsif ($$html =~ /\G-->/cgsu) { } |
|
304
|
1728 |
429 |
if (not $xml and $$current->[0] ne "root") |
|
305
|
566 |
1162 |
if (my $end = $END{$start}) { } |
|
|
599 |
563 |
elsif (my $close = $CLOSE{$start}) { } |
|
313
|
50 |
390 |
if $$allowed{$parent->[1]} |
|
329
|
388 |
125 |
ref $_[-1] eq 'CODE' ? : |
|
|
513 |
452 |
if @_ % 2 |
|
333
|
960 |
5 |
unless exists $attrs->{'data'} and ref $attrs->{'data'} eq "HASH" |