line |
true |
false |
branch |
14
|
0 |
0 |
ref $_[0] ? : |
17
|
0 |
0 |
unless $ENV{'RELEASE_TESTING'} |
22
|
0 |
0 |
unless $author |
27
|
0 |
0 |
if $opts->{'dev'} |
47
|
0 |
0 |
unless ($module_maintainers) |
55
|
0 |
0 |
if (grep {uc $_ eq uc $author;} @$module_maintainers) { } |
65
|
0 |
0 |
if ($meta_authority) |
67
|
0 |
0 |
if ($file_authority and $file_authority ne $meta_authority) |
79
|
0 |
0 |
if (not $saw_errors and %new_packages and keys %new_packages < keys %$provides and keys %dist_maintainers > @authorities) |
87
|
0 |
0 |
if ($opts->{'strict'}) { } |
107
|
0 |
0 |
if ($meta and $meta->{'x_authority'}) |
116
|
0 |
0 |
unless -f $file and -r _ |
118
|
0 |
0 |
if $meta and ref $meta eq ref {} |
125
|
0 |
0 |
unless $file and -f $file and -r _ |
127
|
0 |
0 |
unless open my $fh, '<', $file |
130
|
0 |
0 |
if /__(DATA|END)__/ |
131
|
0 |
0 |
/^=cut/ ? : |
|
0 |
0 |
/^=(?!cut?)/ ? : |
132
|
0 |
0 |
if $in_pod |
134
|
0 |
0 |
if (/\$(?:$package::)?AUTHORITY\s*=.+?(?i:cpan):([A-Za-z0-9]+)/) |
142
|
0 |
0 |
if ($use_metacpan) { } |
144
|
0 |
0 |
if $@ |
150
|
0 |
0 |
$perms->{$module} ? : |
159
|
0 |
0 |
$mp ? : |