| line |
true |
false |
branch |
|
247
|
0 |
9 |
if defined $val |
|
|
9 |
0 |
if (ref $tag_or_elem and $tag_or_elem->isa('HTML::Element')) |
|
|
9 |
0 |
unless defined $val |
|
|
0 |
28 |
if defined $val |
|
|
28 |
0 |
if (ref $tag_or_elem and $tag_or_elem->isa('HTML::Element')) |
|
|
28 |
0 |
unless defined $val |
|
|
0 |
32 |
if defined $val |
|
|
32 |
0 |
if (ref $tag_or_elem and $tag_or_elem->isa('HTML::Element')) |
|
|
32 |
0 |
unless defined $val |
|
|
0 |
32 |
if defined $val |
|
|
32 |
0 |
if (ref $tag_or_elem and $tag_or_elem->isa('HTML::Element')) |
|
|
29 |
3 |
unless defined $val |
|
|
0 |
32 |
if defined $val |
|
|
32 |
0 |
if (ref $tag_or_elem and $tag_or_elem->isa('HTML::Element')) |
|
|
29 |
3 |
unless defined $val |
|
|
0 |
64 |
if defined $val |
|
|
64 |
0 |
if (ref $tag_or_elem and $tag_or_elem->isa('HTML::Element')) |
|
|
64 |
0 |
unless defined $val |
|
|
0 |
1 |
if ($tags[0] eq 'all!') { } |
|
|
0 |
2 |
if ($tags[0] eq 'all!') { } |
|
|
0 |
1 |
if ($tags[0] eq 'all!') { } |
|
|
0 |
2 |
if ($tags[0] eq 'all!') { } |
|
|
0 |
2 |
if ($tags[0] eq 'all!') { } |
|
|
0 |
1 |
if ($tags[0] eq 'all!') { } |
|
|
0 |
1 |
if ($tags[0] eq 'all!') { } |
|
|
1 |
32 |
if defined $val |
|
|
33 |
0 |
if (ref $tag_or_elem and $tag_or_elem->isa('HTML::Element')) |
|
|
32 |
0 |
unless defined $val |
|
322
|
2 |
44 |
if defined $val |
|
|
2 |
47 |
if defined $val |
|
|
1 |
125 |
if defined $val |
|
|
2 |
4 |
if defined $val |
|
|
2 |
19 |
if defined $val |
|
|
2 |
37 |
if defined $val |
|
|
0 |
83 |
if defined $val |
|
|
1 |
53 |
if defined $val |
|
375
|
1 |
0 |
unless defined $self->tabify |
|
376
|
1 |
0 |
unless defined $self->linelength |
|
377
|
1 |
0 |
unless defined $self->min_bool_attr |
|
378
|
1 |
0 |
unless defined $self->quote_attr |
|
379
|
1 |
0 |
unless defined $self->entities |
|
380
|
1 |
0 |
unless defined $self->wrap_at_tagend |
|
382
|
1 |
0 |
unless defined $self->allow_forced_nl |
|
384
|
0 |
1 |
unless defined $self->uppercase |
|
414
|
0 |
3 |
unless $element->isa('HTML::Element') |
|
415
|
3 |
0 |
unless defined $indent |
|
427
|
0 |
3 |
if (defined $lar) { } |
|
431
|
0 |
0 |
$accu =~ /^\s*$/ ? : |
|
448
|
1 |
2 |
if $accu |
|
457
|
7 |
29 |
$tab ? : |
|
466
|
0 |
36 |
if ($fh) { } |
|
481
|
0 |
19 |
if ($fh) { } |
|
508
|
1 |
123 |
if ($wrap and $wsp) { } |
|
|
1 |
122 |
elsif ($wrap and $bp) { } |
|
522
|
1 |
0 |
if $accu =~ s/^\s+// |
|
530
|
46 |
76 |
if ($wsp and $pos) |
|
560
|
1 |
32 |
if ($self->skip($elem)) |
|
567
|
24 |
5 |
if ($req_nl and $wsp || $self->allow_forced_nl && $self->force_nl($elem)) |
|
570
|
13 |
11 |
unless ($nl) |
|
580
|
0 |
24 |
if ($nl < $req_nl) |
|
589
|
0 |
32 |
if ($HTML::PrettyPrinter::noformattags{$tag} or $tag =~ /^~/) { } |
|
599
|
0 |
0 |
unless ($nl) |
|
601
|
0 |
0 |
if ($ai + $pos + $len_l1 > $self->linelength) { } |
|
603
|
0 |
0 |
if ($wsp) { } |
|
|
0 |
0 |
elsif ($bp) { } |
|
622
|
0 |
0 |
$wsp ? : |
|
626
|
0 |
0 |
if ($#lines) { } |
|
633
|
0 |
0 |
if $bp |
|
649
|
32 |
0 |
$self->uppercase ? : |
|
667
|
20 |
12 |
if ($self->wrap_at_tagend == -1 or @attr and $self->wrap_at_tagend == 1) |
|
680
|
30 |
27 |
if (ref $c) { } |
|
687
|
1 |
26 |
if ($req_nl and substr($c, 0, 1) eq ' ') |
|
690
|
0 |
1 |
if $req_nl > 1 |
|
704
|
24 |
3 |
if $pos |
|
711
|
0 |
32 |
if $rqnl > $req_nl |
|
715
|
10 |
22 |
unless $pos |
|
716
|
30 |
0 |
unless ($HTML::Element::emptyElement{$tag} or $HTML::Element::optionalEndTag{$tag} and not $self->endtag($elem)) |
|
719
|
0 |
30 |
if ($req_nl > 0 and $wsp) |
|
726
|
0 |
0 |
if $req_nl - 1 |
|
730
|
30 |
0 |
$self->uppercase ? : |
|
741
|
29 |
3 |
if $rqnl > $req_nl |
|
742
|
19 |
10 |
if ($req_nl and $self->allow_forced_nl and $self->force_nl($elem)) |
|
768
|
20 |
0 |
$self->uppercase ? : |
|
771
|
0 |
2 |
ref $HTML::Tagset::boolean_attr{$e->tag} ? : |
|
|
0 |
2 |
unless ($a eq lc $v and $self->min_bool_attr and exists $HTML::Tagset::boolean_attr{$e->tag} and ref $HTML::Tagset::boolean_attr{$e->tag} ? $HTML::Tagset::boolean_attr{$e->tag}{$a} : $HTML::Tagset::boolean_attr{$e->tag} eq $a) |
|
779
|
13 |
5 |
if ($self->quote_attr or $v =~ tr[\-.0-9A-Za-z](\000-,/:-@[-`{-\377)c) |
|
781
|
0 |
13 |
$v =~ tr/"// && !($v =~ tr/'//) ? : |
|
868
|
3 |
109 |
if ($t =~ /^\@/) { } |
|
869
|
0 |
3 |
if $groups{uc $t}++ |
|
870
|
0 |
3 |
unless $HTML::PrettyPrinter::taggroups{uc $t} |
|
871
|
3 |
0 |
if $HTML::PrettyPrinter::taggroups{uc $t} |