Branch Coverage

inc/Module/Install.pm
Criterion Covered Total %
branch 29 64 45.3


line true false branch
84 8 0 if (my $code = $$sym{$pwd})
86 0 8 unless $cwd eq $pwd
88 0 8 unless $$sym =~ /([^:]+)$/
90 8 0 unless uc $1 eq $1
99 0 1 unless (-f $$self{'file'})
119 1 0 unless ($$self{'extensions'})
126 0 1 unless (@exts)
134 32 111 unless $obj->can($method)
135 2 109 if $method =~ /^_/
136 11 98 if $method eq uc $method
155 0 1 unless (Cwd::abs_path(Cwd::cwd()) eq $base_path)
159 0 1 if $args{'_self'}
163 0 1 $^O eq 'VMS' ? :
169 1 0 unless ($args{'path'})
180 0 8 unless my $obj = $self->load($method)
188 0 8 unless $$self{'extensions'}
193 8 44 if $obj->can($method)
196 0 0 unless my $admin = $$self{'admin'}
210 0 1 unless (grep {lc $_ eq lc $$self{'prefix'};} @INC)
216 0 9 if $$self{'pathnames'}{$pkg}
220 0 9 unless ($new)
221 0 0 if $@
237 1 9 unless $file =~ m[^\Q$path\E/(.+)\.pm\Z]is
239 0 9 if lc $subpath eq lc $$self{'dispatch'}
248 0 9 if ($subpath eq lc $subpath or $subpath eq uc $subpath)
249 0 0 unless open PKGFILE, "<$subpath.pm"
252 0 0 if /^=\w/
253 0 0 if /^=cut/
254 0 0 if $in_pod or /^=cut/
255 0 0 if /^\s*#/
256 0 0 if (/^\s*package\s+($pkg)\s*;/i)
265 1 0 if -d $path