| line |
true |
false |
branch |
|
99
|
2 |
19 |
unless $$parser{'active'} |
|
101
|
4 |
15 |
if $$parser{'DEBUG'} |
|
103
|
4 |
15 |
if $$parser{'DEBUG'} |
|
106
|
16 |
3 |
if $$parser{'trimmed_tags'}{$$parser{'active'}} |
|
109
|
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') { } |
|
110
|
1 |
9 |
if $$parser{'DEBUG'} |
|
113
|
1 |
9 |
if $$parser{'DEBUG'} |
|
115
|
3 |
4 |
if $$parser{'DEBUG'} |
|
118
|
0 |
1 |
if $$parser{'DEBUG'} |
|
121
|
0 |
1 |
if $$parser{'DEBUG'} |
|
141
|
4 |
47 |
if $$parser{'DEBUG'} |
|
144
|
15 |
36 |
if $$parser{'active'} |
|
150
|
2 |
49 |
if (exists $$parser{'wanted_pod_tags'}{"*$command"}) { } |
|
|
49 |
0 |
elsif ($command =~ /^(head\d+|item|(for|begin))$/) { } |
|
156
|
1 |
48 |
if ($2) { } |
|
168
|
17 |
32 |
if (defined $lookup and exists $$parser{'wanted_pod_tags'}{$lookup}) |
|
170
|
4 |
13 |
if $$parser{'DEBUG'} |
|
177
|
0 |
0 |
if $$parser{'DEBUG'} |
|
182
|
0 |
51 |
if not $does_she_want_it_sir and $$parser{'DEBUG'} |
|
192
|
3 |
0 |
$$parser{'active'} ? : |
|
|
3 |
142 |
if $$parser{'DEBUG'} |
|
196
|
43 |
102 |
if (defined $$parser{'active'}) |
|
282
|
0 |
6 |
unless @_ |
|
286
|
5 |
1 |
if (caller ne 'main') |
|
292
|
0 |
6 |
unless -f $source_file |
|
325
|
2 |
4 |
if $$parser{'DEBUG'} |
|
328
|
0 |
6 |
unless open $fh, "<$filename" |
|
349
|
6 |
1 |
if (UNIVERSAL::isa($_[0], 'Pod::Constants')) { } |
|
352
|
0 |
1 |
unless $parser = $parsers{caller()} |
|
358
|
4 |
20 |
if (lc $pod_tag eq '-trim') { } |
|
|
2 |
18 |
elsif (lc $pod_tag eq '-debug') { } |
|
|
0 |
18 |
elsif (lc $pod_tag eq '-usage') { } |
|
366
|
18 |
0 |
if (ref($var) =~ /^(?:SCALAR|CODE|ARRAY|HASH)$/) { } |
|
367
|
4 |
14 |
if $$parser{'DEBUG'} |
|
370
|
15 |
3 |
if $$parser{'trim_next'} |
|
389
|
0 |
0 |
if (UNIVERSAL::isa($_[0], 'Pod::Constants')) { } |
|
392
|
0 |
0 |
unless $parser = $parsers{caller()} |