| line |
true |
false |
branch |
|
8
|
0 |
7 |
if (defined &Pod::Simple::HTML::DEBUG) { } |
|
|
7 |
0 |
elsif (defined &Pod::Simple::DEBUG) { } |
|
175
|
77 |
0 |
/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s ? : |
|
180
|
105 |
0 |
/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s ? : |
|
230
|
58 |
1 |
unless defined $add |
|
231
|
0 |
1 |
if ($self->{'Adjusted_html_h_levels'} || 0) == $add |
|
251
|
42 |
18 |
if $self->bare_output |
|
263
|
0 |
18 |
if (defined $self->force_title) { } |
|
269
|
1 |
17 |
unless ($self->content_seen) |
|
275
|
14 |
3 |
if (defined $title and $title =~ /\S/) { } |
|
279
|
3 |
0 |
unless defined $title |
|
286
|
10 |
7 |
if ($self->html_css) |
|
287
|
10 |
0 |
$self->html_css =~ /
|
|
298
|
10 |
7 |
if ($self->html_javascript) |
|
299
|
10 |
0 |
$self->html_javascript =~ /
|
|
321
|
7 |
10 |
unless ($$text_r and $$text_r =~ /name=['"]___top['"]/) |
|
366
|
49 |
10 |
unless $self->index |
|
368
|
0 |
10 |
if ($self->output_string) |
|
376
|
0 |
0 |
if ($$out =~ s/$sneakytag/$index/s) { } |
|
386
|
0 |
10 |
unless ($self->output_fh) |
|
416
|
2 |
8 |
unless @$points > 1 |
|
426
|
26 |
0 |
if ($tagname =~ /^head(\d+)$/) { } |
|
429
|
0 |
0 |
if ($previous_tagname =~ /^head\d+$/) { } |
|
444
|
8 |
18 |
unless $level |
|
472
|
203 |
319 |
if (($type = $token->type) eq 'start') { } |
|
|
203 |
116 |
elsif ($type eq 'end') { } |
|
|
116 |
0 |
elsif ($type eq 'text') { } |
|
473
|
22 |
181 |
if (($tagname = $token->tagname) eq 'L') { } |
|
|
37 |
144 |
elsif ($tagname eq 'item-text' or $tagname =~ /^head\d$/s) { } |
|
|
4 |
140 |
elsif ($tagname eq 'Data') { } |
|
478
|
22 |
0 |
if (defined $linkto and length $linkto) { } |
|
493
|
37 |
48 |
if $to_unget[-1]->is_end and $to_unget[-1]->tagname eq $tagname |
|
500
|
37 |
0 |
if defined $name |
|
503
|
33 |
4 |
if ($tagname =~ /^head\d$/s) |
|
504
|
20 |
13 |
$self->index ? : |
|
509
|
37 |
0 |
if (defined $name) { } |
|
515
|
31 |
6 |
if $ToIndex{$tagname} |
|
528
|
0 |
4 |
unless defined $next |
|
529
|
0 |
4 |
unless ($next->type eq "text") |
|
540
|
3 |
137 |
if ($tagname =~ /^over-/s) { } |
|
|
0 |
137 |
elsif ($tagname =~ /^item-/s and @stack and $stack[-1]) { } |
|
547
|
5 |
75 |
if $tagname eq "Verbatim" or $tagname eq "VerbatimFormatted" or $tagname eq "X" |
|
553
|
3 |
200 |
if (($tagname = $token->tagname) =~ /^over-/s) { } |
|
|
4 |
392 |
elsif ($tagname =~ /^item-/s and @stack) { } |
|
554
|
3 |
0 |
if (my $end = pop @stack) |
|
559
|
4 |
0 |
if ($tagname eq "item-text" and defined(my $next = $self->get_token)) |
|
561
|
3 |
1 |
if ($next->type eq "start") |
|
569
|
3 |
136 |
if $tagname eq "Verbatim" or $tagname eq "X" |
|
574
|
105 |
11 |
unless $dont_wrap |
|
593
|
0 |
22 |
if (not defined $type) { } |
|
|
10 |
12 |
elsif ($type eq 'pod') { } |
|
|
9 |
3 |
elsif ($type eq 'url') { } |
|
|
3 |
0 |
elsif ($type eq 'man') { } |
|
613
|
0 |
3 |
unless defined $to and length $to |
|
615
|
1 |
2 |
if defined $frag and length(($frag .= '')) |
|
630
|
0 |
3 |
unless defined $to and length $to or defined $section and length $section |
|
634
|
5 |
5 |
if defined $section and length(($section .= '')) |
|
643
|
0 |
10 |
if ($complete_url) { } |
|
653
|
7 |
3 |
if (defined $to and length $to) |
|
656
|
0 |
7 |
if (defined $there and length $there) { } |
|
665
|
0 |
7 |
unless (defined $there and length $there) |
|
677
|
7 |
3 |
defined $to && length $to ? : |
|
678
|
5 |
5 |
if defined $section and length $section |
|
680
|
0 |
10 |
unless (length $out) |
|
705
|
69 |
0 |
if ("$]" >= 5.006) { } |
|
711
|
0 |
69 |
unless length $section |
|
728
|
42 |
0 |
if ("$]" >= 5.007003) { } |
|
747
|
0 |
7 |
$self->batch_mode ? : |
|
755
|
0 |
7 |
unless defined $it and length $it |
|
759
|
7 |
0 |
unless $self->perldoc_url_prefix =~ /\?/s |
|
761
|
0 |
7 |
unless length $url |
|
769
|
0 |
0 |
unless (@path) |
|
784
|
0 |
0 |
if ($level < 1) { } |
|
796
|
0 |
3 |
unless defined $page and length $page |
|
809
|
17 |
0 |
unless $_[0]{'podhtml_LOT'} |
|
815
|
0 |
0 |
if (defined $section) { } |
|
816
|
0 |
0 |
unless defined $to and length $to |
|
832
|
0 |
79 |
if (not ref $t && UNIVERSAL::can($t, 'is_text')) { } |
|
|
39 |
40 |
elsif ($t->is_text) { } |
|
|
3 |
74 |
elsif ($t->is_start and $t->tag eq 'X') { } |
|
840
|
3 |
3 |
if ($t = shift @_)->is_text |
|
841
|
0 |
3 |
if ($t->is_start and $t->tag eq 'X') { } |
|
|
3 |
0 |
elsif ($t->is_end and $t->tag eq 'X') { } |
|
846
|
0 |
37 |
if length $out > $Linearization_Limit |
|
861
|
326 |
138 |
if (defined wantarray) |
|
862
|
275 |
51 |
if (wantarray) { } |
|
866
|
51 |
0 |
if ("$]" >= 5.007003) { } |
|
876
|
1101 |
0 |
if (defined $x) |
|
877
|
1101 |
0 |
if ("$]" >= 5.007003) { } |