| line |
true |
false |
branch |
|
20
|
3 |
19 |
unless $parser->{'active'} |
|
22
|
4 |
15 |
if $parser->{'DEBUG'} |
|
24
|
4 |
15 |
if $parser->{'DEBUG'} |
|
26
|
17 |
2 |
if $parser->{'trimmed_tags'}{$parser->{'active'}} |
|
28
|
10 |
9 |
if (ref $whereto eq 'CODE') { } |
|
|
7 |
2 |
elsif (ref $whereto eq 'SCALAR') { } |
|
|
1 |
1 |
elsif (ref $whereto eq 'ARRAY') { } |
|
|
1 |
0 |
elsif (ref $whereto eq 'HASH') { } |
|
29
|
1 |
9 |
if $parser->{'DEBUG'} |
|
32
|
1 |
9 |
if $parser->{'DEBUG'} |
|
34
|
3 |
4 |
if $parser->{'DEBUG'} |
|
37
|
0 |
1 |
if $parser->{'DEBUG'} |
|
40
|
0 |
1 |
if $parser->{'DEBUG'} |
|
58
|
4 |
35 |
if $parser->{'DEBUG'} |
|
60
|
17 |
22 |
if $parser->{'active'} |
|
64
|
2 |
37 |
if (exists $parser->{'wanted_pod_tags'}{"*$command"}) { } |
|
|
35 |
2 |
elsif ($command =~ /^(head\d+|item|(for|begin))$/) { } |
|
68
|
1 |
34 |
if ($2) { } |
|
78
|
17 |
18 |
if (defined $lookup and exists $parser->{'wanted_pod_tags'}{$lookup}) { } |
|
|
0 |
18 |
elsif ($parser->{'DEBUG'}) { } |
|
79
|
4 |
13 |
if $parser->{'DEBUG'} |
|
88
|
0 |
2 |
if $parser->{'DEBUG'} |
|
97
|
30 |
54 |
$parser->{'active'} ? : |
|
98
|
3 |
81 |
if $parser->{'DEBUG'} |
|
101
|
30 |
54 |
if defined $parser->{'active'} |
|
110
|
1 |
5 |
unless @_ |
|
114
|
4 |
1 |
if (caller ne 'main') |
|
120
|
0 |
5 |
unless -f $source_file |
|
142
|
2 |
3 |
if $parser->{'DEBUG'} |
|
143
|
0 |
5 |
unless open my $fh, '<', $filename |
|
152
|
5 |
1 |
if (eval {
do {
$_[0]->isa('Pod::Constants')
}
}) { } |
|
155
|
0 |
1 |
unless $parser = $parsers{caller()} |
|
159
|
4 |
20 |
if (lc $pod_tag eq '-trim') { } |
|
|
2 |
18 |
elsif (lc $pod_tag eq '-debug') { } |
|
|
0 |
18 |
elsif (lc $pod_tag eq '-usage') { } |
|
167
|
18 |
0 |
if (ref($var) =~ /^(?:SCALAR|CODE|ARRAY|HASH)$/) { } |
|
168
|
4 |
14 |
if $parser->{'DEBUG'} |
|
170
|
16 |
2 |
if $parser->{'trim_next'} |
|
180
|
0 |
1 |
if (eval {
do {
$_[0]->isa('Pod::Constants')
}
}) { } |
|
183
|
0 |
1 |
unless $parser = $parsers{caller()} |