| line |
true |
false |
branch |
|
29
|
2 |
9 |
unless $me->d->{'modules'} |
|
31
|
1 |
8 |
if $error |
|
32
|
1 |
8 |
if $package |
|
33
|
0 |
9 |
if $has_binary_data |
|
37
|
0 |
11 |
unless $me->d->{'files_array'} |
|
38
|
19 |
0 |
unless $file =~ /\.pod$/ and $file =~ m[^lib/] || $file =~ m[^[^/]+$] |
|
41
|
0 |
0 |
if $error |
|
42
|
0 |
0 |
if $package |
|
43
|
0 |
0 |
if $has_binary_data |
|
45
|
1 |
10 |
if @errors |
|
53
|
0 |
9 |
unless open my $fh, '<', $file |
|
57
|
0 |
9 |
unless ($file =~ /\.p(?:m|od)$/) |
|
61
|
0 |
31 |
if (/^\s*__DATA__\s*$/) |
|
63
|
0 |
0 |
unless defined $copy |
|
64
|
0 |
0 |
if is_binary($copy) |
|
66
|
3 |
28 |
if (substr($_, 0, 1) eq '=') |
|
67
|
1 |
2 |
if (/^=encoding\s+(.+)/) |
|
70
|
0 |
3 |
if (/^=cut/) { } |
|
|
3 |
0 |
elsif (/^=(?!cut)(.+)/) { } |
|
77
|
23 |
8 |
unless $inpod |
|
78
|
4 |
4 |
unless $directive =~ /^head/ |
|
79
|
1 |
3 |
if (/^\s*($package_name_pattern) \s+ -+ (?:\s+ (.*)\s*$|$)/x) |
|
84
|
2 |
1 |
unless $abstract |
|
85
|
1 |
0 |
if /^\s*$/ or /^=/ |
|
91
|
1 |
8 |
if ($encoding and $abstract) |
|
93
|
1 |
0 |
if (not $encoder) { } |
|
97
|
0 |
0 |
if ($@) |
|
118
|
1 |
10 |
if $d->{'error'}{'has_abstract_in_pod'} |
|
119
|
0 |
0 |
if defined $_ |
|
|
10 |
0 |
unless $d->{'abstracts_in_pod'} |
|
120
|
0 |
10 |
@abstracts ? : |
|
136
|
10 |
1 |
unless $d->{'abstracts_in_pod'} |
|
137
|
0 |
1 |
if $mapping{$d->{'abstracts_in_pod'}{$_} or ''} |
|
139
|
0 |
11 |
if (@errors) |
|
142
|
0 |
11 |
@errors ? : |