Branch Coverage

blib/lib/CPAN/Mini/Visit/Simple.pm
Criterion Covered Total %
branch 8 94 8.5


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'
219 0 0 if (defined $args->{'do_not_visit'})
224 0 0 unless defined &reftype($args->{'do_not_visit'}) and &reftype($args->{'do_not_visit'}) eq 'ARRAY'
229 0 0 if (defined $args->{'do_not_visit'}) { }
232 0 0 unless $do_not_visit{$d}
243 0 0 unless ($Archive::Extract::WARN)
248 0 0 unless chdir $tdir
250 0 0 unless (my $extract_ok = $ae->extract('to', $tdir))
252 0 0 unless ($Archive::Extract::WARN)
260 0 0 unless ($Archive::Extract::WARN)
268 0 0 if (not $extract_ok and $Archive::Extract::WARN)
276 0 0 if (@children == 1 and -d $children[0])
281 0 0 unless chdir $here