| line |
true |
false |
branch |
|
54
|
185 |
49 |
if $HAS_HTML_ENTITIES |
|
55
|
48 |
1 |
if (defined $ents) { } |
|
140
|
2 |
903 |
unless exists $attributes{$attr} |
|
159
|
844 |
143 |
if (@_) { } |
|
176
|
71 |
234 |
if (@_) |
|
178
|
0 |
71 |
if (not $_[0]) { } |
|
187
|
21 |
2 |
$HAS_HTML_ENTITIES ? : |
|
|
23 |
48 |
$_[0] eq '1' ? : |
|
212
|
2416 |
604 |
unless $attr =~ /^(\w+)_fragment_format/ |
|
217
|
510 |
94 |
if ($format) { } |
|
219
|
464 |
46 |
if ref $format eq 'CODE' |
|
223
|
46 |
48 |
if ($type eq 'perldoc') { } |
|
227
|
37 |
55 |
if ($target eq $URL_PREFIXES{$alias}) |
|
242
|
0 |
140 |
unless $self->can($prefix . $format) |
|
289
|
0 |
67 |
unless ++$_[0]->_private->{'indent'} >= 1 |
|
293
|
0 |
67 |
unless --$_[0]->_private->{'indent'} >= 0 |
|
350
|
34 |
437 |
if ($level) |
|
368
|
3 |
7 |
if ($args{'with_meta'} and not $parser->include_meta_tags) |
|
492
|
439 |
20 |
if ($stash->{'encode_amp'}) { } |
|
|
20 |
0 |
elsif (exists $stash->{'html_encode_chars'}) { } |
|
493
|
38 |
401 |
if (exists $stash->{'html_encode_chars'}) { } |
|
510
|
439 |
20 |
if $stash->{'encode_lt'} |
|
546
|
460 |
33 |
if ($stash->{'encode_amp'}) |
|
549
|
17 |
29 |
$2 ? : |
|
|
44 |
46 |
$1 ? : |
|
552
|
460 |
33 |
if ($stash->{'encode_lt'}) |
|
556
|
16 |
24 |
$2 ? : |
|
|
32 |
40 |
$1 ? : |
|
571
|
83 |
459 |
if ($stash->{'no_escape'}) { } |
|
591
|
73 |
10 |
if $stash->{'encode_amp'} |
|
592
|
73 |
10 |
if $stash->{'encode_lt'} |
|
608
|
0 |
289 |
unless @{$self->_private->{'stacks'};} == 0 |
|
613
|
6 |
283 |
if ($self->include_meta_tags) |
|
617
|
55 |
234 |
if (my $encoding = $self->_get_output_encoding) { } |
|
619
|
36 |
19 |
$HAS_HTML_ENTITIES ? : |
|
642
|
12 |
277 |
if $self->match_encoding |
|
683
|
1 |
31 |
unless $line =~ /^( +)/ |
|
685
|
12 |
19 |
if length $1 < length $indent |
|
687
|
11 |
6 |
if ((my $smallest = length $indent) < 4) |
|
696
|
22 |
1 |
length $_ ? : |
|
730
|
18 |
323 |
if (my $last = $self->_private->{'search_header'}) |
|
749
|
9 |
34 |
$text =~ /AUTHOR/ ? : |
|
|
9 |
43 |
$text =~ /NAME/ ? : |
|
790
|
21 |
44 |
if (my $text = $self->_pop_stack_text) |
|
793
|
16 |
5 |
if ($self->_private->{'last_state'}{'blocks'}) { } |
|
817
|
42 |
1 |
defined $text && length $text ? : |
|
877
|
18 |
4 |
length $_ ? : |
|
888
|
2 |
8 |
if ($attr->{'target'} eq 'html') |
|
905
|
2 |
8 |
if ($self->_private->{'last_state'}{'for_html'}) |
|
965
|
0 |
91 |
unless my $flags = pop @{$self->_private->{'link'};} |
|
970
|
68 |
0 |
$type eq 'pod' ? : |
|
|
6 |
68 |
$type eq 'man' ? : |
|
|
17 |
74 |
$type eq 'url' ? : |
|
981
|
4 |
87 |
unless (length $text) |
|
982
|
1 |
1 |
$to ? : |
|
|
2 |
2 |
$section ? : |
|
991
|
0 |
91 |
unless ($url) |
|
1033
|
3 |
2 |
if $longest < $len |
|
1036
|
3 |
58 |
$longest > 0 ? : |
|
1061
|
57 |
11 |
if ($name) |
|
1067
|
42 |
26 |
if ($section) |
|
1069
|
31 |
11 |
$url ? : |
|
1075
|
21 |
21 |
unless ref $method |
|
1165
|
0 |
9 |
unless length $section |