| line |
true |
false |
branch |
|
15
|
0 |
0 |
ref $_[0] ? : |
|
18
|
0 |
0 |
unless $ENV{'RELEASE_TESTING'} |
|
23
|
0 |
0 |
unless $author |
|
31
|
0 |
0 |
if $opts->{'dev'} |
|
47
|
0 |
0 |
unless ($mp) |
|
56
|
0 |
0 |
if (grep {uc $_ eq uc $author;} @module_maintainers) { } |
|
66
|
0 |
0 |
if ($meta_authority) |
|
68
|
0 |
0 |
if ($file_authority and $file_authority ne $meta_authority) |
|
80
|
0 |
0 |
if (not $saw_errors and %new_packages and keys %new_packages < keys %$provides and keys %dist_maintainers > @authorities) |
|
88
|
0 |
0 |
if ($opts->{'strict'}) { } |
|
108
|
0 |
0 |
if ($meta and $meta->{'x_authority'}) |
|
117
|
0 |
0 |
unless -f $file and -r _ |
|
119
|
0 |
0 |
if $meta and ref $meta eq ref {} |
|
126
|
0 |
0 |
unless $file and -f $file and -r _ |
|
128
|
0 |
0 |
unless open my $fh, '<', $file |
|
131
|
0 |
0 |
if /__(DATA|END)__/ |
|
132
|
0 |
0 |
/^=cut/ ? : |
|
|
0 |
0 |
/^=(?!cut?)/ ? : |
|
133
|
0 |
0 |
if $in_pod |
|
135
|
0 |
0 |
if (/\$(?:$package::)?AUTHORITY\s*=.+?(?i:cpan):([A-Za-z0-9]+)/) |