| line |
true |
false |
branch |
|
8
|
0 |
7 |
if (defined &Pod::Simple::HTML::DEBUG) { } |
|
|
7 |
0 |
elsif (defined &Pod::Simple::DEBUG) { } |
|
174
|
70 |
0 |
/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s ? : |
|
179
|
105 |
0 |
/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s ? : |
|
229
|
57 |
1 |
unless defined $add |
|
230
|
0 |
1 |
if ($self->{'Adjusted_html_h_levels'} || 0) == $add |
|
250
|
41 |
18 |
if $self->bare_output |
|
262
|
0 |
18 |
if (defined $self->force_title) { } |
|
268
|
1 |
17 |
unless ($self->content_seen) |
|
274
|
14 |
3 |
if (defined $title and $title =~ /\S/) { } |
|
278
|
3 |
0 |
unless defined $title |
|
285
|
10 |
7 |
if ($self->html_css) |
|
286
|
10 |
0 |
$self->html_css =~ /
|
|
297
|
10 |
7 |
if ($self->html_javascript) |
|
298
|
10 |
0 |
$self->html_javascript =~ /
|
|
320
|
7 |
10 |
unless ($$text_r and $$text_r =~ /name=['"]___top['"]/) |
|
365
|
48 |
10 |
unless $self->index |
|
367
|
0 |
10 |
if ($self->output_string) |
|
375
|
0 |
0 |
if ($$out =~ s/$sneakytag/$index/s) { } |
|
385
|
0 |
10 |
unless ($self->output_fh) |
|
415
|
2 |
8 |
unless @$points > 1 |
|
425
|
26 |
0 |
if ($tagname =~ /^head(\d+)$/) { } |
|
428
|
0 |
0 |
if ($previous_tagname =~ /^head\d+$/) { } |
|
443
|
8 |
18 |
unless $level |
|
471
|
200 |
315 |
if (($type = $token->type) eq 'start') { } |
|
|
200 |
115 |
elsif ($type eq 'end') { } |
|
|
115 |
0 |
elsif ($type eq 'text') { } |
|
472
|
22 |
178 |
if (($tagname = $token->tagname) eq 'L') { } |
|
|
37 |
141 |
elsif ($tagname eq 'item-text' or $tagname =~ /^head\d$/s) { } |
|
|
4 |
137 |
elsif ($tagname eq 'Data') { } |
|
477
|
22 |
0 |
if (defined $linkto and length $linkto) { } |
|
492
|
37 |
48 |
if $to_unget[-1]->is_end and $to_unget[-1]->tagname eq $tagname |
|
499
|
37 |
0 |
if defined $name |
|
502
|
33 |
4 |
if ($tagname =~ /^head\d$/s) |
|
503
|
20 |
13 |
$self->index ? : |
|
508
|
37 |
0 |
if (defined $name) { } |
|
514
|
31 |
6 |
if $ToIndex{$tagname} |
|
527
|
0 |
4 |
unless defined $next |
|
528
|
0 |
4 |
unless ($next->type eq "text") |
|
539
|
3 |
134 |
if ($tagname =~ /^over-/s) { } |
|
|
0 |
134 |
elsif ($tagname =~ /^item-/s and @stack and $stack[-1]) { } |
|
546
|
5 |
73 |
if $tagname eq "Verbatim" or $tagname eq "VerbatimFormatted" or $tagname eq "X" |
|
552
|
3 |
197 |
if (($tagname = $token->tagname) =~ /^over-/s) { } |
|
|
4 |
386 |
elsif ($tagname =~ /^item-/s and @stack) { } |
|
553
|
3 |
0 |
if (my $end = pop @stack) |
|
558
|
4 |
0 |
if ($tagname eq "item-text" and defined(my $next = $self->get_token)) |
|
560
|
3 |
1 |
if ($next->type eq "start") |
|
568
|
3 |
134 |
if $tagname eq "Verbatim" or $tagname eq "X" |
|
573
|
104 |
11 |
unless $dont_wrap |
|
592
|
0 |
22 |
if (not defined $type) { } |
|
|
10 |
12 |
elsif ($type eq 'pod') { } |
|
|
9 |
3 |
elsif ($type eq 'url') { } |
|
|
3 |
0 |
elsif ($type eq 'man') { } |
|
612
|
0 |
3 |
unless defined $to and length $to |
|
614
|
1 |
2 |
if defined $frag and length($frag .= "") |
|
629
|
0 |
3 |
unless defined $to and length $to or defined $section and length $section |
|
633
|
5 |
5 |
if defined $section and length($section .= "") |
|
642
|
0 |
10 |
if ($complete_url) { } |
|
652
|
7 |
3 |
if (defined $to and length $to) |
|
655
|
0 |
7 |
if (defined $there and length $there) { } |
|
664
|
0 |
7 |
unless (defined $there and length $there) |
|
676
|
7 |
3 |
defined $to && length $to ? : |
|
677
|
5 |
5 |
if defined $section and length $section |
|
679
|
0 |
10 |
unless (length $out) |
|
704
|
69 |
0 |
if ($] ge 5.006) { } |
|
710
|
0 |
69 |
unless length $section |
|
727
|
42 |
0 |
if ($] ge 5.007003) { } |
|
746
|
0 |
7 |
$self->batch_mode ? : |
|
754
|
0 |
7 |
unless defined $it and length $it |
|
758
|
7 |
0 |
unless $self->perldoc_url_prefix =~ /\?/s |
|
760
|
0 |
7 |
unless length $url |
|
768
|
0 |
0 |
unless (@path) |
|
783
|
0 |
0 |
if ($level < 1) { } |
|
795
|
0 |
3 |
unless defined $page and length $page |
|
808
|
17 |
0 |
unless $_[0]{'podhtml_LOT'} |
|
814
|
0 |
0 |
if (defined $section) { } |
|
815
|
0 |
0 |
unless defined $to and length $to |
|
831
|
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') { } |
|
839
|
3 |
3 |
if ($t = shift @_)->is_text |
|
840
|
0 |
3 |
if ($t->is_start and $t->tag eq 'X') { } |
|
|
3 |
0 |
elsif ($t->is_end and $t->tag eq 'X') { } |
|
845
|
0 |
37 |
if length $out > $Linearization_Limit |
|
860
|
325 |
137 |
if (defined wantarray) |
|
861
|
274 |
51 |
if (wantarray) { } |
|
865
|
51 |
0 |
if ($] ge 5.007003) { } |
|
875
|
1094 |
0 |
if (defined $x) |
|
876
|
1094 |
0 |
if ($] ge 5.007003) { } |