| line |
true |
false |
branch |
|
55
|
189 |
49 |
if $HAS_HTML_ENTITIES |
|
56
|
48 |
1 |
if (defined $ents) { } |
|
143
|
2 |
922 |
unless exists $attributes{$attr} |
|
154
|
1 |
8 |
if (defined $self->local_module_url_prefix and $self->local_module_url_prefix eq "" and not $self->escape_url) |
|
166
|
877 |
496 |
if (@_) { } |
|
183
|
72 |
238 |
if (@_) |
|
185
|
0 |
72 |
if (not $_[0]) { } |
|
194
|
22 |
2 |
$HAS_HTML_ENTITIES ? : |
|
|
24 |
48 |
$_[0] eq '1' ? : |
|
219
|
2853 |
634 |
unless $attr =~ /^(\w+)_fragment_format/ |
|
224
|
510 |
124 |
if ($format) { } |
|
226
|
464 |
46 |
if ref $format eq "CODE" |
|
230
|
61 |
63 |
if ($type eq 'perldoc') { } |
|
234
|
52 |
70 |
if ($target eq $URL_PREFIXES{$alias}) |
|
249
|
0 |
170 |
unless $self->can($prefix . $format) |
|
296
|
0 |
67 |
unless ++$_[0]->_private->{'indent'} >= 1 |
|
300
|
0 |
67 |
unless --$_[0]->_private->{'indent'} >= 0 |
|
357
|
34 |
462 |
if ($level) |
|
375
|
3 |
8 |
if ($args{'with_meta'} and not $parser->include_meta_tags) |
|
499
|
462 |
22 |
if ($stash->{'encode_amp'}) { } |
|
|
22 |
0 |
elsif (exists $stash->{'html_encode_chars'}) { } |
|
500
|
38 |
424 |
if (exists $stash->{'html_encode_chars'}) { } |
|
517
|
462 |
22 |
if $stash->{'encode_lt'} |
|
553
|
483 |
35 |
if ($stash->{'encode_amp'}) |
|
556
|
17 |
29 |
$2 ? : |
|
|
44 |
46 |
if ($1) { } |
|
559
|
483 |
35 |
if ($stash->{'encode_lt'}) |
|
563
|
16 |
24 |
$2 ? : |
|
|
32 |
40 |
if ($1) { } |
|
578
|
83 |
484 |
if ($stash->{'no_escape'}) { } |
|
598
|
73 |
10 |
if $stash->{'encode_amp'} |
|
599
|
73 |
10 |
if $stash->{'encode_lt'} |
|
615
|
0 |
303 |
unless @{$self->_private->{'stacks'};} == 0 |
|
620
|
6 |
297 |
if ($self->include_meta_tags) |
|
624
|
66 |
237 |
if (my $encoding = $self->_get_output_encoding) { } |
|
626
|
47 |
19 |
$HAS_HTML_ENTITIES ? : |
|
649
|
14 |
289 |
if $self->match_encoding |
|
690
|
1 |
31 |
unless $line =~ /^( +)/ |
|
692
|
12 |
19 |
if length $1 < length $indent |
|
694
|
11 |
6 |
if ((my $smallest = length $indent) < 4) |
|
703
|
22 |
1 |
length $_ ? : |
|
737
|
18 |
348 |
if (my $last = $self->_private->{'search_header'}) |
|
756
|
9 |
45 |
$text =~ /AUTHOR/ ? : |
|
|
9 |
54 |
$text =~ /NAME/ ? : |
|
797
|
21 |
44 |
if (my $text = $self->_pop_stack_text) |
|
800
|
16 |
5 |
if ($self->_private->{'last_state'}{'blocks'}) { } |
|
824
|
42 |
1 |
defined $text && length $text ? : |
|
884
|
18 |
4 |
length $_ ? : |
|
895
|
2 |
8 |
if ($attr->{'target'} eq "html") |
|
912
|
2 |
8 |
if ($self->_private->{'last_state'}{'for_html'}) |
|
972
|
0 |
93 |
unless my $flags = pop @{$self->_private->{"link"};} |
|
977
|
70 |
0 |
$type eq 'pod' ? : |
|
|
6 |
70 |
$type eq 'man' ? : |
|
|
17 |
76 |
$type eq 'url' ? : |
|
988
|
4 |
89 |
unless (length $text) |
|
989
|
1 |
1 |
$to ? : |
|
|
2 |
2 |
$section ? : |
|
998
|
0 |
93 |
unless ($url) |
|
1040
|
3 |
2 |
if $longest < $len |
|
1043
|
3 |
58 |
$longest > 0 ? : |
|
1061
|
5 |
54 |
if (defined $name and $self->is_local_module($name) and defined $self->local_module_url_prefix) |
|
1072
|
59 |
11 |
if ($name) |
|
1073
|
58 |
1 |
$self->escape_url ? : |
|
1078
|
42 |
28 |
if ($section) |
|
1080
|
31 |
11 |
$url ? : |
|
1086
|
21 |
21 |
unless ref $method |
|
1176
|
0 |
9 |
unless length $section |