line |
true |
false |
branch |
107
|
66 |
0 |
@_ > 1 ? : |
|
66 |
1995 |
@_ ? : |
116
|
2665 |
5 |
exists $self->{'tree'} ? : |
|
2670 |
2072 |
unless @_ |
123
|
1557 |
1860 |
unless @_ |
138
|
7 |
3929 |
if defined $runaway |
139
|
968 |
2968 |
if defined $text |
142
|
1329 |
2607 |
if (defined $tag) { } |
|
11 |
2596 |
elsif (defined $doctype) { } |
|
10 |
2586 |
elsif (defined $comment) { } |
|
7 |
2579 |
elsif (defined $cdata) { } |
|
17 |
2562 |
elsif (defined $pi) { } |
145
|
79 |
471 |
$xml ? : |
|
550 |
779 |
if ($tag =~ m[^/\s*(\S+)]) { } |
|
779 |
0 |
elsif ($tag =~ m[^([^\s/]+)([\s\S]*)]) { } |
149
|
99 |
680 |
$xml ? : |
154
|
45 |
33046 |
$xml ? : |
155
|
16 |
32886 |
defined $3 ? : |
|
189 |
32902 |
defined $2 ? : |
158
|
44 |
33047 |
if $key eq '/' |
160
|
33019 |
28 |
defined $value ? : |
164
|
1 |
778 |
if not $xml and $start eq 'image' |
169
|
74 |
705 |
if not $xml and $EMPTY{$start} or $xml || !$BLOCK{$start} and $closing |
172
|
750 |
29 |
if $xml or not $RAW{$start} || $RCDATA{$start} |
173
|
1 |
28 |
unless $html =~ m[\G(.*?)<\s*/\s*\Q$start\E\s*>]cgis |
174
|
18 |
10 |
$RCDATA{$start} ? : |
190
|
10 |
7 |
if not exists $self->{'xml'} and $pi =~ /xml/i |
208
|
121 |
998 |
if $next->[0] eq 'root' |
211
|
697 |
301 |
if $next->[1] eq $end |
214
|
5 |
278 |
if not $xml and $PHRASING{$end} and not $PHRASING{$next->[1]} |
230
|
434 |
547 |
if ($type eq 'tag') |
239
|
2 |
8 |
$xml ? : |
|
10 |
54 |
unless defined $value |
245
|
17 |
18 |
$EMPTY{$tag} ? : |
|
5 |
35 |
$xml ? : |
|
40 |
394 |
unless $tree->[4] |
257
|
403 |
144 |
if $type eq 'text' |
260
|
6 |
138 |
if $type eq 'raw' |
263
|
124 |
14 |
if $type eq 'root' |
267
|
4 |
10 |
if $type eq 'doctype' |
270
|
4 |
6 |
if $type eq 'comment' |
273
|
3 |
3 |
if $type eq 'cdata' |
276
|
3 |
0 |
if $type eq 'pi' |
286
|
491 |
288 |
if (not $xml and $$current->[0] ne 'root') |
287
|
126 |
365 |
if (my $end = $END{$start}) { } |
|
123 |
242 |
elsif (my $close = $CLOSE{$start}) { } |
295
|
45 |
74 |
if $$allowed{$parent->[1]} |
311
|
2 |
4 |
ref $_[-1] eq 'CODE' ? : |
|
6 |
6 |
if @_ % 2 |
316
|
11 |
1 |
unless exists $attrs->{'data'} and ref $attrs->{'data'} eq 'HASH' |