Branch Coverage

blib/lib/CPAN/Distroprefs.pm
Criterion Covered Total %
branch 25 72 34.7


line true false branch
52 0 0 if ($self->msg) { }
92 0 0 if $loader eq "CPAN" or $loader =~ /^YAML(::|$)/
99 0 0 $loader eq 'CPAN' ? :
103 0 0 if (my $err = $@) { }
0 0 elsif (not $data) { }
123 0 0 unless open FH, "<$abs"
129 0 0 if (my $err = $@)
145 0 0 if (my $err = $@)
152 0 0 if (@_ > 3)
158 0 0 unless (opendir $dh, $dir)
163 0 0 if $fn eq "." or $fn eq ".."
164 0 0 if (-d "$dir/$fn") { }
165 0 0 if $fn =~ /^[._]/
168 0 0 if ($fn =~ /$ext_re/)
179 0 0 unless %$ext_map
185 0 0 if @files
191 0 0 unless defined $fn
200 0 0 unless -f $result->abs
204 0 0 if (my $err = $@) { }
0 0 elsif (not @prefs) { }
205 0 0 if (ref $err and eval { do { $err->isa("CPAN::Distroprefs::Result") } })
230 2 0 $_[0]->data->{'match'} ? :
234 45 14 unless exists $$match{$_[1]}
246 0 22 if ($@)
263 5 0 defined $data->{$dkey} ? :
264 3 2 if (_match_scalar($match->{$mkey}, $val)) { }
265 1 2 if $mkey =~ /^not_/
268 1 1 unless $mkey =~ /^not_/
277 12 2 if (exists $m->{$key})
278 4 8 unless &$matcher($m->{$key}, $data)
280 8 2 if (exists $$m{"not_$key"})
281 3 5 if &$matcher($$m{"not_$key"}, $data)
306 3 3 if $module =~ /$qr/
323 0 14 unless (exists $arg->{$key})
329 0 14 if (ref $val eq "CODE")
331 7 7 unless $self->$meth($val)