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 |
56 |
$parser->{'active'} ? : |
98
|
3 |
83 |
if $parser->{'DEBUG'} |
101
|
30 |
56 |
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()} |