| line |
true |
false |
branch |
|
14
|
0 |
7 |
if (defined &Pod::Simple::HTML::DEBUG) { } |
|
|
7 |
0 |
elsif (defined &Pod::Simple::DEBUG) { } |
|
172
|
70 |
0 |
/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s ? : |
|
177
|
105 |
0 |
/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s ? : |
|
227
|
57 |
1 |
unless defined $add |
|
228
|
0 |
1 |
if ($self->{'Adjusted_html_h_levels'} || 0) == $add |
|
248
|
41 |
18 |
if $self->bare_output |
|
260
|
0 |
18 |
if (defined $self->force_title) { } |
|
266
|
1 |
17 |
unless ($self->content_seen) |
|
272
|
14 |
3 |
if (defined $title and $title =~ /\S/) { } |
|
276
|
3 |
0 |
unless defined $title |
|
283
|
10 |
7 |
if ($self->html_css) |
|
284
|
10 |
0 |
$self->html_css =~ /
|
|
295
|
10 |
7 |
if ($self->html_javascript) |
|
296
|
10 |
0 |
$self->html_javascript =~ /
|
|
318
|
7 |
10 |
unless ($$text_r and $$text_r =~ /name=['"]___top['"]/) |
|
363
|
48 |
10 |
unless $self->index |
|
365
|
0 |
10 |
if ($self->output_string) |
|
373
|
0 |
0 |
if ($$out =~ s/$sneakytag/$index/s) { } |
|
383
|
0 |
10 |
unless ($self->output_fh) |
|
413
|
2 |
8 |
unless @$points > 1 |
|
423
|
26 |
0 |
if ($tagname =~ /^head(\d+)$/) { } |
|
426
|
0 |
0 |
if ($previous_tagname =~ /^head\d+$/) { } |
|
441
|
8 |
18 |
unless $level |
|
469
|
200 |
315 |
if (($type = $token->type) eq 'start') { } |
|
|
200 |
115 |
elsif ($type eq 'end') { } |
|
|
115 |
0 |
elsif ($type eq 'text') { } |
|
470
|
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') { } |
|
475
|
22 |
0 |
if (defined $linkto and length $linkto) { } |
|
490
|
37 |
48 |
if $to_unget[-1]->is_end and $to_unget[-1]->tagname eq $tagname |
|
497
|
37 |
0 |
if defined $name |
|
500
|
33 |
4 |
if ($tagname =~ /^head\d$/s) |
|
501
|
20 |
13 |
$self->index ? : |
|
506
|
37 |
0 |
if (defined $name) { } |
|
512
|
31 |
6 |
if $Pod::Simple::HTML::ToIndex{$tagname} |
|
525
|
0 |
4 |
unless defined $next |
|
526
|
0 |
4 |
unless ($next->type eq 'text') |
|
537
|
3 |
134 |
if ($tagname =~ /^over-/s) { } |
|
|
0 |
134 |
elsif ($tagname =~ /^item-/s and @stack and $stack[-1]) { } |
|
544
|
5 |
73 |
if $tagname eq 'Verbatim' or $tagname eq 'VerbatimFormatted' or $tagname eq 'X' |
|
550
|
3 |
197 |
if (($tagname = $token->tagname) =~ /^over-/s) { } |
|
|
4 |
386 |
elsif ($tagname =~ /^item-/s and @stack) { } |
|
551
|
3 |
0 |
if (my $end = pop @stack) |
|
556
|
4 |
0 |
if ($tagname eq 'item-text' and defined(my $next = $self->get_token)) |
|
558
|
3 |
1 |
if ($next->type eq 'start') |
|
566
|
3 |
134 |
if $tagname eq 'Verbatim' or $tagname eq 'X' |
|
571
|
104 |
11 |
unless $dont_wrap |
|
590
|
0 |
22 |
if (not defined $type) { } |
|
|
10 |
12 |
elsif ($type eq 'pod') { } |
|
|
9 |
3 |
elsif ($type eq 'url') { } |
|
|
3 |
0 |
elsif ($type eq 'man') { } |
|
610
|
0 |
3 |
unless defined $to and length $to |
|
612
|
1 |
2 |
if defined $frag and length($frag .= '') |
|
627
|
0 |
3 |
unless defined $to and length $to or defined $section and length $section |
|
631
|
5 |
5 |
if defined $section and length($section .= '') |
|
640
|
0 |
10 |
if ($complete_url) { } |
|
650
|
7 |
3 |
if (defined $to and length $to) |
|
653
|
0 |
7 |
if (defined $there and length $there) { } |
|
662
|
0 |
7 |
unless (defined $there and length $there) |
|
674
|
7 |
3 |
defined $to && length $to ? : |
|
675
|
5 |
5 |
if defined $section and length $section |
|
677
|
0 |
10 |
unless (length $out) |
|
702
|
69 |
0 |
if ($] ge 5.006) { } |
|
708
|
0 |
69 |
unless length $section |
|
725
|
42 |
0 |
if ($] ge 5.007003) { } |
|
744
|
0 |
7 |
$self->batch_mode ? : |
|
752
|
0 |
7 |
unless defined $it and length $it |
|
756
|
7 |
0 |
unless $self->perldoc_url_prefix =~ /\?/s |
|
758
|
0 |
7 |
unless length $url |
|
766
|
0 |
0 |
unless (@path) |
|
781
|
0 |
0 |
if ($level < 1) { } |
|
793
|
0 |
3 |
unless defined $page and length $page |
|
806
|
17 |
0 |
unless $_[0]{'podhtml_LOT'} |
|
812
|
0 |
0 |
if (defined $section) { } |
|
813
|
0 |
0 |
unless defined $to and length $to |
|
829
|
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') { } |
|
837
|
3 |
3 |
if ($t = shift @_)->is_text |
|
838
|
0 |
3 |
if ($t->is_start and $t->tag eq 'X') { } |
|
|
3 |
0 |
elsif ($t->is_end and $t->tag eq 'X') { } |
|
843
|
0 |
37 |
if length $out > $Pod::Simple::HTML::Linearization_Limit |
|
858
|
325 |
137 |
if (defined wantarray) |
|
859
|
274 |
51 |
if (wantarray) { } |
|
863
|
51 |
0 |
if ($] ge 5.007003) { } |
|
873
|
1094 |
0 |
if (defined $x) |
|
874
|
1094 |
0 |
if ($] ge 5.007003) { } |