Branch Coverage

lib/Egg/Helper/Util/Base.pm
Criterion Covered Total %
branch 0 126 0.0


line true false branch
26 0 0 if $Egg::Helper::Util::Base::O{'output_path'}
27 0 0 if ($Egg::Helper::Util::Base::O{'debug'})
35 0 0 unless $ENV{'PERL_PATH'} or File::Which::which('perl')
47 0 0 unless {'MSWin32', 'Win32', 'MacOS', 'MacOS'}->{$^O}
50 0 0 helper_is_platform() eq 'Unix' ? :
53 0 0 helper_is_platform() eq 'Win32' ? :
56 0 0 helper_is_platform() eq 'MacOS' ? :
95 0 0 $_[1] ? :
0 0 $_[0] ? :
96 0 0 unless ref $path eq 'ARRAY'
97 0 0 if $$path[1] and not -e $$path[0]
99 0 0 unless chdir $$path[0]
104 0 0 $_[1] ? :
0 0 $_[0] ? :
105 0 0 unless ref $path eq 'ARRAY'
111 0 0 $_[1] ? :
0 0 $_[0] ? :
112 0 0 unless ref $path eq 'ARRAY'
114 0 0 unless File::Path::rmtree($path)
118 0 0 $_[1] ? :
0 0 $_[0] ? :
119 0 0 unless ref $path eq 'ARRAY'
120 0 0 if unlink $_
130 0 0 defined $value ? :
142 0 0 if ($type =~ /^bin/i)
146 0 0 unless (-e $base and -d _)
147 0 0 unless $self->helper_create_dir($base)
155 0 0 if (-e $file) { }
157 0 0 if ($type =~ /^script/i or $type =~ /^bin_exec/i)
158 0 0 if (chmod 0700, $file)
176 0 0 unless $self->egg_var($param, \$$data{'value'}, $path)
177 0 0 $param ? :
0 0 $type =~ /^bin/i ? :
178 0 0 defined $$data{'value'} ? :
185 0 0 unless ref $data eq 'ARRAY'
197 0 0 unless $version =~ /^\d+\.\d\d+$/
221 0 0 $] > 5.006 ? :
223 0 0 if (my $egg_inc = $ENV{'EGG_INC'}) { }
240 0 0 if $param_cache{$fname}
245 0 0 unless $regex
261 0 0 ref $_[0] eq 'ARRAY' ? :
283 0 0 ref $_[0] eq 'HASH' ? :
285 0 0 if $$attr{'chdir'}
287 0 0 if (my $dirs = $$attr{'create_dirs'})
289 0 0 if (my $files = $$attr{'create_files'})
291 0 0 if (my $code = $$attr{'create_code'})
293 0 0 if ($$attr{'makemaker_ok'})
295 0 0 if (my $message = $$attr{'complete_msg'}) { }
301 0 0 if $$attr{'chdir'}
304 0 0 if (my $err = $$attr{'errors'})
306 0 0 if (my $dirs = $$err{'rmdir'})
307 0 0 if (my $files = $$err{'unlink'})
314 0 0 $_[1] ? :
340 0 0 unless $self->helper_is_unix or exists $ENV{'EGG_MAKEMAKER'} and $ENV{'EGG_MAKEMAKER'}
343 0 0 if ($@ and $@ =~ m[^Can\'t\s+locate\s+(?:inc[/\:]+)?Module[/\:]+Install(?:\.pm)?\s+])
348 0 0 if system 'perl Makefile.PL'
349 0 0 if system 'make manifest'
350 0 0 if system 'make'
351 0 0 if system 'make test'
353 0 0 if (my $err = $@)
359 0 0 if $msg
368 0 0 if $self->helper_is_unix
369 0 0 $self->helper_is_mac ? :