Branch Coverage

blib/lib/Module/Install/Admin.pm
Criterion Covered Total %
branch 8 58 13.7


line true false branch
98 0 0 unless $AUTOLOAD =~ /([^:]+)$/
99 0 0 if uc $1 eq $1
100 0 0 unless my $obj = $self->load($1)
119 0 0 unless (grep {$_ eq $self->{'prefix'};} @INC)
132 0 1 if @parts > 1
138 0 1 unless open my $FROM, '<', $from
139 0 1 unless open my $TO, '>', $to
148 0 3 if (/^=(?:b(?:egin|ack)|head\d|(?:po|en)d|item|(?:ove|fo)r)/) { }
0 3 elsif (/^=cut\s*\z/ and $in_pod) { }
3 0 elsif (not $in_pod) { }
158 0 1 unless close $FROM
159 0 1 unless close $TO
167 0 0 unless ($self->{'extensions'})
170 0 0 if ref $inc or $inc eq $self->{'prefix'}
182 0 0 unless defined &{ref($obj) . "::$method";}
186 0 0 if $copy xor $is_admin
188 0 0 unless (@extobj)
194 0 0 if $copy
202 0 0 unless $pathname ||= $self->{'pathnames'}{$pkg}
206 0 0 if -f $file
219 0 0 unless $#{$objects;} > 0 and -t STDIN
235 0 0 if $choice > 0 and $choice <= @$objects
244 0 0 unless ($pkg =~ /^main::.*::$/)
245 0 0 if $pkg =~ /^::/
246 0 0 unless $pkg =~ /^main::/
247 0 0 unless $pkg =~ /::$/
252 0 0 unless defined $stem_symtab and exists $stem_symtab->{$leaf}
257 0 0 if $name eq "$self->{'dispatch'}::"
263 0 0 if $name eq "$self->{'dispatch'}::"