| line |
true |
false |
branch |
|
25
|
0 |
0 |
($self->upstream_url || '') =~ m[^(https?)://www\.cpan\.org]u ? : |
|
32
|
0 |
0 |
defined $x ? : |
|
46
|
0 |
0 |
if exists $config->{'upstream_backup_url'} |
|
53
|
0 |
0 |
if ($self->autofetch) |
|
55
|
0 |
0 |
if ($path eq 'modules/02packages.details.txt') { } |
|
|
0 |
0 |
elsif ($path =~ m[^authors/id/(.*)]u and not $ent) { } |
|
56
|
0 |
0 |
if ($ent) |
|
60
|
0 |
0 |
unless $head =~ /^Last-Updated:\s*(.*)$/mu |
|
65
|
0 |
0 |
if ($blob_last_update >= time - $self->package_details_max_age) { } |
|
72
|
0 |
0 |
unless ($ent) |
|
83
|
0 |
0 |
if $blob |
|
91
|
0 |
0 |
unless defined $self->upstream_url |
|
96
|
0 |
0 |
unless ($tx->result->is_success) |
|
97
|
0 |
0 |
if ($self->upstream_backup_url and $path =~ m[^authors/id/]u) |
|
101
|
0 |
0 |
if $tx2->result->is_success |
|
104
|
0 |
0 |
if $options{'undef_if_404'} and $tx->result->code == 404 |
|
112
|
0 |
0 |
unless my $content_ref = $self->fetch_upstream_file("modules/02packages.details.txt.gz", %options) |
|
116
|
0 |
0 |
unless gunzip($content_ref, \$txt) |
|
127
|
0 |
0 |
unless my $content_ref = $self->fetch_upstream_file($path, %options) |