| line |
true |
false |
branch |
|
179
|
1 |
2 |
unless (defined $config{'offline'}) |
|
185
|
0 |
3 |
if ($config{'offline'} and $CPAN::Mini::VERSION < 0.57) |
|
192
|
0 |
3 |
unless (defined $config{'local'}) |
|
202
|
0 |
3 |
unless $$self{'extract'} |
|
205
|
0 |
3 |
if (-e $$self{'extract'}) { } |
|
206
|
0 |
0 |
unless (-d _ and -w _) |
|
212
|
0 |
3 |
unless File::Path::mkpath($$self{'extract'}, $$self{'trace'}, $$self{'dirmode'}) |
|
217
|
3 |
0 |
unless (defined $$self{'extract_check'}) |
|
220
|
1 |
2 |
if ($$self{'extract_force'}) |
|
264
|
0 |
0 |
if ($$self{'extract_force'}) |
|
267
|
0 |
0 |
if (-e $authors_dir) |
|
269
|
0 |
0 |
unless &File::Remove::remove(\1, $authors_dir) |
|
277
|
0 |
0 |
if ($$self{'offline'} and $CPAN::Mini::VERSION < 0.57) { } |
|
285
|
0 |
0 |
if ($$self{'extract_check'} or $$self{'extract_force'}) |
|
298
|
0 |
0 |
if (@files) { } |
|
331
|
0 |
0 |
unless (-d 'File::Spec'->catfile($$self{'extract'}, $file)) |
|
333
|
0 |
0 |
unless $self->mirror_extract($file) |
|
346
|
0 |
0 |
unless $file =~ /\.t(ar\.)?gz$/ |
|
380
|
0 |
0 |
if (-e $source_path) |
|
381
|
0 |
0 |
unless &File::Remove::remove(\1, $source_path) |
|
402
|
1 |
2 |
unless $$self{$name} |
|
405
|
2 |
0 |
if &Params::Util::_CODELIKE($$self{$name}) |
|
408
|
0 |
0 |
if (&Params::Util::_INSTANCE($$self{$name}, 'Regexp')) |
|
413
|
0 |
0 |
unless &Params::Util::_ARRAY0($$self{$name}) |
|
416
|
0 |
0 |
unless (@{$$self{$name};}) |
|
423
|
0 |
0 |
if (scalar grep({not &Params::Util::_INSTANCE($_, 'Regexp');} @filters)) |
|
430
|
0 |
0 |
if $_ =~ /$regexp/ |
|
451
|
0 |
1 |
unless my $io = 'IO::File'->new($archive, 'r') |
|
465
|
0 |
1 |
if ($@ or not $tar) |
|
473
|
0 |
1 |
if $@ |
|
477
|
1 |
0 |
if ($$self{'extract_filter'}) |
|
496
|
0 |
1 |
if ($@ or not $rv) |
|
499
|
0 |
0 |
if (-e $to_file) |
|
525
|
0 |
1 |
unless IO::Uncompress::Gunzip::gunzip($gz, $file) |
|
535
|
0 |
0 |
if (not $message and $$self{'current_file'}) |
|
538
|
0 |
0 |
unless ($message) |
|
541
|
0 |
0 |
if $@ =~ /Archive::Tar warning/ |