Branch Coverage

blib/lib/Module/Install.pm
Criterion Covered Total %
branch 16 102 15.6


line true false branch
61 0 0 unless ($INC{$file})
77 0 0 if $^O eq 'MSWin32' and $] >= 5.006
84 0 0 if (-f $0)
90 0 0 if ($a > 0 and $a < 5)
94 0 0 if ($s > $t)
108 0 0 if ($0 =~ /Build.PL$/i)
127 0 0 unless (-f $self->{'file'})
129 0 0 if $key =~ m[Module/Install]
162 0 0 if (my $code = $sym->{$pwd})
164 0 0 unless $cwd eq $pwd
166 0 0 unless ($$sym =~ s/([^:]+)$//)
182 0 0 if (uc $method eq $method) { }
0 0 elsif ($method =~ /^_/ and $self->can($method)) { }
198 0 0 unless ($self->{'extensions'})
205 0 0 unless (@exts)
212 0 0 unless $obj->can($method)
213 0 0 if $method =~ /^_/
214 0 0 if $method eq uc $method
241 4 0 unless (Cwd::abs_path(Cwd::getcwd()) eq $base_path)
244 0 4 if $args{'_self'}
246 0 4 if $^O eq 'VMS'
250 0 2 $^O eq 'VMS' ? :
256 2 2 unless ($args{'path'})
268 0 0 unless my $obj = $self->load($method)
278 0 0 unless $self->{'extensions'}
281 0 0 if $obj->can($method)
284 0 0 unless my $admin = $self->{'admin'}
299 0 0 if not ref $_
0 0 unless (grep {lc $_ eq lc $self->{'prefix'} if not ref $_;} @INC)
306 0 0 if $self->{'pathnames'}{$pkg}
310 0 0 unless ($new)
311 0 0 if $@
315 0 0 $should_reload ? :
328 0 0 unless $file =~ m[^\Q$path\E/(.+)\.pm\Z]is
330 0 0 if lc $subpath eq lc $self->{'dispatch'}
339 0 0 if ($subpath eq lc $subpath or $subpath eq uc $subpath)
343 0 0 if /^=\w/
344 0 0 if /^=cut/
345 0 0 if $in_pod or /^=cut/
346 0 0 if /^\s*#/
347 0 0 if (/^\s*package\s+($pkg)\s*;/i)
355 0 0 if -d $path
379 0 3 unless open FH, '<', $_[0]
382 0 3 unless close FH
397 0 1 if $_[0] =~ /\.pod\z/
407 0 1 unless open FH, '>', $_[0]
410 0 1 unless print FH $_[$_]
412 0 1 unless close FH
420 8 18 if ($d >= 2)
429 20 6 if @v
440 0 0 defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? :