| line |
true |
false |
branch |
|
55
|
185 |
49 |
if $HAS_HTML_ENTITIES |
|
56
|
48 |
1 |
if (defined $ents) { } |
|
143
|
2 |
908 |
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
|
853 |
472 |
if (@_) { } |
|
183
|
71 |
234 |
if (@_) |
|
185
|
0 |
71 |
if (not $_[0]) { } |
|
194
|
21 |
2 |
$HAS_HTML_ENTITIES ? : |
|
|
23 |
48 |
$_[0] eq '1' ? : |
|
219
|
2745 |
610 |
unless $attr =~ /^(\w+)_fragment_format/ |
|
224
|
510 |
100 |
if ($format) { } |
|
226
|
464 |
46 |
if ref $format eq 'CODE' |
|
230
|
49 |
51 |
if ($type eq 'perldoc') { } |
|
234
|
40 |
58 |
if ($target eq $URL_PREFIXES{$alias}) |
|
249
|
0 |
146 |
unless $self->can($prefix . $format) |
|
296
|
0 |
67 |
unless ++$_[0]->_private->{'indent'} >= 1 |
|
300
|
0 |
67 |
unless --$_[0]->_private->{'indent'} >= 0 |
|
357
|
34 |
439 |
if ($level) |
|
375
|
3 |
7 |
if ($args{'with_meta'} and not $parser->include_meta_tags) |
|
499
|
441 |
20 |
if ($stash->{'encode_amp'}) { } |
|
|
20 |
0 |
elsif (exists $stash->{'html_encode_chars'}) { } |
|
500
|
38 |
403 |
if (exists $stash->{'html_encode_chars'}) { } |
|
517
|
441 |
20 |
if $stash->{'encode_lt'} |
|
553
|
462 |
33 |
if ($stash->{'encode_amp'}) |
|
556
|
17 |
29 |
$2 ? : |
|
|
44 |
46 |
$1 ? : |
|
559
|
462 |
33 |
if ($stash->{'encode_lt'}) |
|
563
|
16 |
24 |
$2 ? : |
|
|
32 |
40 |
$1 ? : |
|
578
|
83 |
461 |
if ($stash->{'no_escape'}) { } |
|
598
|
73 |
10 |
if $stash->{'encode_amp'} |
|
599
|
73 |
10 |
if $stash->{'encode_lt'} |
|
615
|
0 |
291 |
unless @{$self->_private->{'stacks'};} == 0 |
|
620
|
6 |
285 |
if ($self->include_meta_tags) |
|
624
|
55 |
236 |
if (my $encoding = $self->_get_output_encoding) { } |
|
626
|
36 |
19 |
$HAS_HTML_ENTITIES ? : |
|
649
|
12 |
279 |
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 |
325 |
if (my $last = $self->_private->{'search_header'}) |
|
756
|
9 |
34 |
$text =~ /AUTHOR/ ? : |
|
|
9 |
43 |
$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 |