| line |
true |
false |
branch |
|
34
|
0 |
0 |
if ($args{'setup'} and $args{'reindex'}) |
|
46
|
1 |
0 |
if ($ENV{'CPAN_SQLITE_DOWNLOAD'}) |
|
47
|
0 |
1 |
unless $ENV{'CPAN_SQLITE_DOWNLOAD_URL'} |
|
50
|
0 |
1 |
unless $ENV{'CPAN_SQLITE_DOWNLOAD_URL'} |
|
54
|
1 |
0 |
if (my $response = "HTTP::Tiny"->new->mirror($ENV{'CPAN_SQLITE_DOWNLOAD_URL'}, catfile($self->{'db_dir'}, $self->{'db_name'}))) |
|
57
|
1 |
0 |
if ($response->{'success'} and $response->{'status'} and $response->{'status'} eq 200) |
|
58
|
1 |
0 |
if (my $type = $response->{'headers'}{'content-type'}) |
|
59
|
1 |
0 |
if ($type eq "application/x-sqlite3") |
|
74
|
0 |
0 |
if ($setup) |
|
76
|
0 |
0 |
if (-f $db_name) |
|
78
|
0 |
0 |
if (unlink $db_name) { } |
|
88
|
0 |
0 |
unless ($ENV{'CPAN_SQLITE_NO_LOG_FILES'}) |
|
93
|
0 |
0 |
unless defined $log_cleanup |
|
94
|
0 |
0 |
if ($log_cleanup and $log_cleanup =~ /^\d+$/) |
|
95
|
0 |
0 |
if (opendir my $DIR, $self->{'log_dir'}) |
|
101
|
0 |
0 |
if (@files) |
|
109
|
0 |
0 |
if ($self->download_index) |
|
113
|
0 |
0 |
if ($self->{'update_indices'}) |
|
115
|
0 |
0 |
if ($self->fetch_cpan_indices) { } |
|
124
|
0 |
0 |
if ($self->fetch_info) { } |
|
131
|
0 |
0 |
unless ($setup) |
|
133
|
0 |
0 |
if ($self->state) { } |
|
142
|
0 |
0 |
if ($self->populate) { } |
|
163
|
0 |
2 |
if -e $file and -M $file < 1 |
|
165
|
2 |
0 |
unless (-d $dir) |
|
166
|
0 |
2 |
unless mkpath($dir, 0, 493) |
|
171
|
2 |
0 |
if (my $response = "HTTP::Tiny"->new->get($from)) |
|
172
|
2 |
0 |
if ($response->{'success'}) |
|
173
|
2 |
0 |
if (open my $FILE, ">", $file) |
|
176
|
2 |
0 |
if (close $FILE) |
|
183
|
0 |
2 |
unless (-f $file) |
|
195
|
0 |
0 |
unless $info->fetch_info |
|
212
|
0 |
0 |
unless $state->state |
|
221
|
0 |
0 |
unless $db->populate |
|
227
|
0 |
0 |
unless open my $tmp, ">", $file |
|
232
|
0 |
0 |
unless open STDOUT, ">", $file |
|
239
|
2 |
0 |
unless ($ENV{'CPAN_SQLITE_NO_LOG_FILES'}) |
|
241
|
0 |
2 |
if $oldout |