| line |
true |
false |
branch |
|
64
|
7 |
0 |
if ($self->path) |
|
65
|
7 |
0 |
if -f $self->path |
|
71
|
0 |
0 |
if (-f $self->cache_path and $self->max_age) |
|
73
|
0 |
0 |
unless time - $max_age_in_seconds > (stat $self->cache_path)[9] |
|
85
|
0 |
0 |
if (-f $self->cache_path) |
|
90
|
0 |
0 |
if $response->{'status'} == 304 |
|
92
|
0 |
0 |
if ($response->{'status'} == 200) |
|
109
|
0 |
0 |
if ($line =~ /^$/ and $inheader) |
|
113
|
0 |
0 |
if $inheader |
|
126
|
0 |
0 |
unless $PAUSE::Permissions::a->[0] cmp $PAUSE::Permissions::b->[0] |
|
150
|
12 |
0 |
defined $self->path ? : |
|
151
|
0 |
12 |
unless open my $fh, '<', $filename |
|
161
|
3 |
5 |
unless defined $mp |
|
177
|
6 |
2 |
@_ > 0 ? : |
|
186
|
2 |
30 |
if $what eq 'upload' and grep {$_ eq $AUTHOR;} $module->all_maintainers or $what eq 'owner' and defined $module->owner and $module->owner eq $AUTHOR or $what eq 'comaint' and grep {$_ eq $AUTHOR;} $module->co_maintainers |
|
202
|
14 |
7 |
if ($self->preload and $self->module_cache) |
|
209
|
7 |
79 |
if ($inheader and /^\s*$/) |
|
213
|
14 |
65 |
if $inheader |
|
215
|
16 |
49 |
if (lc $m eq lc $module) |
|
219
|
5 |
60 |
if $seen_module and lc $m ne lc $module |
|
223
|
6 |
1 |
if ($seen_module) |
|
226
|
4 |
2 |
if exists $perms{'m'} |
|
227
|
4 |
2 |
if exists $perms{'f'} |
|
228
|
5 |
1 |
if exists $perms{'c'} |