| line |
true |
false |
branch |
|
113
|
66 |
0 |
@_ > 1 ? : |
|
|
66 |
2184 |
@_ ? : |
|
122
|
2933 |
5 |
exists $self->{'tree'} ? : |
|
|
2938 |
2259 |
unless @_ |
|
129
|
1751 |
2026 |
unless @_ |
|
144
|
21 |
4602 |
if defined $runaway |
|
145
|
1175 |
3448 |
if defined $text |
|
148
|
1541 |
3082 |
if (defined $tag) { } |
|
|
15 |
3067 |
elsif (defined $doctype) { } |
|
|
11 |
3056 |
elsif (defined $comment) { } |
|
|
7 |
3049 |
elsif (defined $cdata) { } |
|
|
18 |
3031 |
elsif (defined $pi) { } |
|
151
|
633 |
908 |
if ($tag =~ m[^/\s*(\S+)]) { } |
|
|
908 |
0 |
elsif ($tag =~ m[^([^\s/]+)([\s\S]*)]) { } |
|
152
|
93 |
540 |
$xml ? : |
|
155
|
11 |
622 |
if (not $xml and my $tags = $NO_MORE_CONTENT{$end}) |
|
162
|
112 |
796 |
$xml ? : |
|
167
|
47 |
33070 |
$xml ? : |
|
168
|
16 |
32894 |
defined $3 ? : |
|
|
207 |
32910 |
defined $2 ? : |
|
171
|
52 |
33065 |
if $key eq "/" |
|
173
|
33037 |
28 |
defined $value ? : |
|
177
|
1 |
907 |
if not $xml and $start eq "image" |
|
182
|
79 |
829 |
if not $xml and $EMPTY{$start} or $xml || !$BLOCK{$start} and $closing |
|
185
|
865 |
43 |
if $xml or not $RAW{$start} || $RCDATA{$start} |
|
186
|
1 |
42 |
unless $html =~ m[\G(.*?))]cgis |
|
187
|
25 |
17 |
$RCDATA{$start} ? : |
|
203
|
11 |
7 |
if not exists $self->{'xml'} and $pi =~ /xml/i |
|
221
|
162 |
1190 |
if $next->[0] eq "root" |
|
224
|
3 |
1187 |
if $SCOPE{$next->[1]} and $next->[1] ne $end |
|
227
|
810 |
377 |
if $next->[1] eq $end |
|
230
|
6 |
352 |
if not $xml and $PHRASING{$end} and not $PHRASING{$next->[1]} |
|
246
|
455 |
581 |
if ($type eq "tag") |
|
255
|
2 |
8 |
$xml ? : |
|
|
10 |
56 |
unless defined $value |
|
261
|
17 |
24 |
$EMPTY{$tag} ? : |
|
|
5 |
41 |
$xml ? : |
|
|
46 |
409 |
unless $tree->[4] |
|
273
|
424 |
157 |
if $type eq "text" |
|
276
|
6 |
151 |
if $type eq "raw" |
|
279
|
137 |
14 |
if $type eq "root" |
|
283
|
4 |
10 |
if $type eq "doctype" |
|
286
|
4 |
6 |
if $type eq "comment" |
|
289
|
3 |
3 |
if $type eq "cdata" |
|
292
|
3 |
0 |
if $type eq "pi" |
|
302
|
578 |
330 |
if (not $xml and $$current->[0] ne "root") |
|
303
|
155 |
423 |
if (my $end = $END{$start}) { } |
|
|
148 |
275 |
elsif (my $close = $CLOSE{$start}) { } |
|
311
|
50 |
98 |
if $$allowed{$parent->[1]} |
|
327
|
2 |
4 |
ref $_[-1] eq 'CODE' ? : |
|
|
6 |
6 |
if @_ % 2 |
|
332
|
11 |
1 |
unless exists $attrs->{'data'} and ref $attrs->{'data'} eq "HASH" |