Branch Coverage

lib/CPANPLUS/Configure.pm
Criterion Covered Total %
branch 48 74 64.8


line true false branch
32 55 3916 if @_
99 0 17 unless check($tmpl, \%hash)
109 2 15 if $load
152 0 4 unless check($tmpl, \%hash)
164 1 3 if ($ENV{$env} and not $warned)
178 3 1 if (not $loaded++ or $rescan)
206 3 3 if (my $loc = &Module::Loaded::is_loaded($plugin)) { }
212 3 0 if (eval { do { &load($plugin); 1 } }) { }
220 0 3 if ($@)
226 3 0 if $sub
232 0 4 if ($cur_base ne $self->get_conf("base"))
246 0 0 unless $inc{$l}
269 1 0 unless -e $file
294 0 1 unless my $pm = shift()
300 0 1 if ($pm eq 'CPANPLUS::Config::User') { }
0 1 elsif ($pm eq 'CPANPLUS::Config::System') { }
309 0 1 unless ($pm =~ /^$cfg_pkg/)
332 0 1 unless my $file = $self->_config_pm_to_file($pm, $savedir)
335 1 0 unless (-d $dir)
336 0 1 unless $self->_mkdir("dir", $dir)
341 0 1 unless $self->can_save($file)
412 0 1 if -f $file
415 0 1 unless $fh->open(">$file")
446 0 6 unless check($tmpl, \%hash)
450 6 0 if $_->can($type)
522 680 3163 if $private
523 3842 1 if $field
526 1 3842 unless ($type_code)
532 0 3842 unless (scalar @_)
538 3502 340 if ($action eq 'get') { }
334 6 elsif ($action eq 'set') { }
6 0 elsif ($action eq 'add') { }
543 3501 1 if (my $code = $type_obj->can($key)) { }
1 0 elsif ($type eq '_build' and $key eq 'base') { }
557 1955 1546 wantarray ? :
566 334 0 if (my $code = $type_obj->can($key)) { }
583 0 6 if ($type_obj->can($key)) { }