| line |
true |
false |
branch |
|
100
|
0 |
39 |
unless defined $rawtext |
|
108
|
0 |
20 |
unless -f $text |
|
117
|
2 |
57 |
if ($is_rtl) |
|
129
|
39 |
20 |
if (ref $text eq 'SCALAR') { } |
|
|
20 |
0 |
elsif (ref $text eq 'GLOB') { } |
|
139
|
0 |
59 |
unless my $p = "HTML::PullParser"->new(%opts) |
|
149
|
498 |
1050 |
if ($type eq 'S') { } |
|
|
478 |
572 |
elsif ($type eq 'E') { } |
|
|
572 |
0 |
elsif ($type eq 'T') { } |
|
155
|
71 |
427 |
if ($tag eq 'span' or $tag eq 'font') { } |
|
|
6 |
421 |
elsif ($tag eq 'ol' or $tag eq 'ul') { } |
|
|
117 |
304 |
elsif ($tag eq 'p' or $tag eq 'div') { } |
|
167
|
330 |
113 |
if (defined $tag and exists $preserved{$tag}) |
|
170
|
18 |
312 |
if (ref $preserved{$tag} eq 'HASH') { } |
|
172
|
18 |
0 |
if (my $parent = $lists[$#lists]) { } |
|
186
|
19 |
424 |
if (defined $tag and $tag eq "a" and my $href = $attr->{'href'}) |
|
198
|
11 |
467 |
if ($expected ne $tag) |
|
202
|
71 |
407 |
if ($tag eq 'span' or $tag eq 'font') { } |
|
|
6 |
401 |
elsif ($tag eq 'ol' or $tag eq 'ul') { } |
|
|
118 |
283 |
elsif ($tag eq 'p' or $tag eq 'div') { } |
|
209
|
117 |
1 |
if (@parspile) |
|
214
|
329 |
94 |
if ($tag and exists $preserved{$tag}) |
|
215
|
18 |
311 |
if (ref $preserved{$tag} eq 'HASH') { } |
|
216
|
18 |
0 |
if (my $parent = $lists[$#lists]) { } |
|
234
|
79 |
493 |
if ($current =~ /^(p|div)$/) |
|
235
|
22 |
57 |
if ($line =~ /\A\s*([\x{a0} ]+)\s*\z/) |
|
241
|
116 |
456 |
if ($current =~ /^(h[1-6]|li|ul|ol|p|div)$/) |
|
244
|
565 |
7 |
if ($current ne 'pre') { } |
|
258
|
852 |
434 |
if (ref $text) { } |
|
274
|
0 |
325 |
unless defined $parsed |
|
317
|
8 |
63 |
if (grep /italic/i, @attrsvalues) { } |
|
|
8 |
55 |
elsif (grep /bold/i, @attrsvalues) { } |
|
332
|
25 |
92 |
if (my $style = $attr->{'style'}) |
|
333
|
5 |
20 |
if ($style =~ /text-align:\s*center/i) |
|
336
|
7 |
18 |
if (not $opts->{'rtl'} and $style =~ /text-align:\s*right/i) |
|
339
|
2 |
23 |
if ($style =~ /padding-left:\s*\d/is) |
|
343
|
2 |
115 |
if (my $align = $attr->{'align'}) |
|
344
|
0 |
2 |
if ($align =~ /center/i) |
|
347
|
2 |
0 |
if (not $opts->{'rtl'} and $align =~ /right/i) |
|
356
|
168 |
325 |
unless @$lines |