| line |
true |
false |
branch |
|
17
|
0 |
0 |
unless $ENV{'RELEASE_TESTING'} |
|
22
|
0 |
0 |
unless $author |
|
40
|
0 |
0 |
unless ($mp) |
|
47
|
0 |
0 |
if (grep {uc $_ eq uc $author;} @maintainers) { } |
|
56
|
0 |
0 |
if ($meta_authority) |
|
58
|
0 |
0 |
if ($file_authority and $file_authority ne $meta_authority) |
|
78
|
0 |
0 |
if ($meta and $$meta{'x_authority'}) |
|
87
|
0 |
0 |
unless -f $file and -r _ |
|
89
|
0 |
0 |
if $meta and ref $meta eq ref {} |
|
96
|
0 |
0 |
unless $file and -f $file and -r _ |
|
98
|
0 |
0 |
unless open my $fh, '<', $file |
|
101
|
0 |
0 |
if /__(DATA|END)__/ |
|
102
|
0 |
0 |
/^=cut/ ? : |
|
|
0 |
0 |
/^=(?!cut?)/ ? : |
|
103
|
0 |
0 |
if $in_pod |
|
105
|
0 |
0 |
if (/\$(?:$package::)?AUTHORITY\s*=.+?(?i:cpan):([A-Za-z0-9]+)/) |