| line |
true |
false |
branch |
|
29
|
2 |
3 |
if (not $args->{'minicpan'}) { } |
|
33
|
0 |
2 |
unless defined $config_file and -e $config_file |
|
36
|
2 |
0 |
if ($config{'local'}) |
|
44
|
1 |
4 |
unless -d $data{'minicpan'} |
|
47
|
1 |
3 |
unless -d $id_dir |
|
68
|
0 |
0 |
if exists $args->{'list'} |
|
70
|
0 |
0 |
if (defined $args->{'start_dir'}) { } |
|
72
|
0 |
0 |
unless -d $args->{'start_dir'} |
|
74
|
0 |
0 |
unless $args->{'start_dir'} =~ /\Q$self->{'id_dir'}\E/ |
|
81
|
0 |
0 |
if (defined $args->{'pattern'}) |
|
83
|
0 |
0 |
unless &reftype($args->{'pattern'}) eq 'REGEXP' |
|
94
|
0 |
0 |
if exists $args->{'start_dir'} |
|
96
|
0 |
0 |
if exists $args->{'pattern'} |
|
98
|
0 |
0 |
unless exists $args->{'list'} |
|
100
|
0 |
0 |
unless &reftype($args->{'list'}) eq 'ARRAY' |
|
102
|
0 |
0 |
unless scalar @{$args->{'list'};} |
|
116
|
0 |
0 |
unless /$CPAN::Mini::Visit::Simple::ARCHIVE_REGEX/ |
|
117
|
0 |
0 |
if (defined $args->{'pattern'}) |
|
118
|
0 |
0 |
unless $_ =~ /$args->{'pattern'}/ |
|
130
|
0 |
0 |
if (not defined $args) { } |
|
134
|
0 |
0 |
unless &reftype($args) eq 'HASH' |
|
135
|
0 |
0 |
unless exists $args->{'file'} |
|
137
|
0 |
0 |
unless open my $FH, '>', $args->{'file'} |
|
139
|
0 |
0 |
unless close $FH |
|
146
|
0 |
0 |
unless defined $self->{'list'} |
|
152
|
0 |
0 |
unless defined $self->{'list'} |
|
159
|
0 |
0 |
unless exists $args->{'derived_list'} |
|
161
|
0 |
0 |
unless &reftype($args->{'derived_list'}) eq 'ARRAY' |
|
178
|
0 |
0 |
if (not exists $primary->{$stem}) { } |
|
|
0 |
0 |
elsif ($primary->{$stem}{'version'} > $derived->{$stem}{'version'}) { } |
|
198
|
0 |
0 |
$args->{'quiet'} ? : |
|
200
|
0 |
0 |
unless defined $self->{'list'} |
|
207
|
0 |
0 |
unless defined $args->{'action'} and defined &reftype($args->{'action'}) and &reftype($args->{'action'}) eq 'CODE' |
|
210
|
0 |
0 |
if (defined $args->{'action_args'}) |
|
215
|
0 |
0 |
unless defined &reftype($args->{'action_args'}) and &reftype($args->{'action_args'}) eq 'ARRAY' |
|
224
|
0 |
0 |
unless ($Archive::Extract::WARN) |
|
229
|
0 |
0 |
unless chdir $tdir |
|
231
|
0 |
0 |
unless (my $extract_ok = $ae->extract('to', $tdir)) |
|
233
|
0 |
0 |
unless ($Archive::Extract::WARN) |
|
241
|
0 |
0 |
unless ($Archive::Extract::WARN) |
|
249
|
0 |
0 |
if (not $extract_ok and $Archive::Extract::WARN) |
|
257
|
0 |
0 |
if (@children == 1 and -d $children[0]) |
|
262
|
0 |
0 |
unless chdir $here |