Branch Coverage

lib/CPANPLUS/Dist/Build.pm
Criterion Covered Total %
branch 65 146 44.5


line true false branch
19 1 0 if not 'CPANPLUS::Dist::Build'->can('BUILD') && 'CPANPLUS::Dist::Build'->can('BUILD_DIR')
42 0 4 unless (can_load('modules', {$mod, '0.2611'}, 'nocache', 1))
77 7 0 if $self->status->dist_cpan
78 0 7 unless $self->status->dist_cpan
85 0 7 unless ($dir = $self->status->extract)
108 0 7 unless $args = check($tmpl, \%hash)
111 2 5 if $dist->status->prepared and not $force
117 0 5 unless ($cb->_chdir('dir', $dir))
152 5 0 if ('version'->new($CPANPLUS::Internals::VERSION) >= $safe_ver)
163 0 5 unless ($ok)
182 0 5 defined $metadata && exists $metadata->{'x_use_unsafe_inc'} ? :
183 5 0 unless defined $x_use_unsafe_inc
186 0 5 unless exists $ENV{'PERL_USE_UNSAFE_INC'}
193 1 4 unless (scalar run('command', $cmd, 'buffer', \$prep_output, 'verbose', $verbose))
198 0 1 if ($conf->get_conf('cpantest'))
205 0 4 unless (-e sub { ; } ->($dir))
207 0 0 if ($conf->get_conf('cpantest'))
240 0 5 unless ($cb->_chdir('dir', $orig))
248 1 4 $fail ? :
267 0 2 unless my $args = check($tmpl, \%hash)
271 2 0 if $dist->can('find_mymeta_requires')
274 1 1 if (keys %$prereqs) { }
281 1 0 if ('version'->new($Module::Build::VERSION) >= $safe_ver and 'IPC::Cmd'->can_capture_buffer)
287 1 0 if (scalar run('command', [$perl, @run_perl, sub { package CPANPLUS::Dist::Build::Constants; my $file = @_ ? 'File::Spec'->catfile($_[0], 'Build') : 'Build'; $file .= '.com' if $^O eq 'VMS'; return $file; } ->($dir), 'prereq_data', @buildflags], 'buffer', \$content, 'verbose', 0)) { }
301 0 0 unless -f $file
305 0 0 unless ($fh->open($file))
314 0 1 unless $content
316 0 1 unless $bphash and ref $bphash eq 'HASH'
318 3 0 unless $bphash->{$type} and ref $bphash->{$type} eq 'HASH'
324 0 2 unless 'version'->new($CPANPLUS::Internals::VERSION) >= 'version'->new('0.9102')
336 2 0 $cb->_callbacks->can('filter_prereqs') ? :
355 4 0 if $self->status->dist_cpan
356 0 4 unless $self->status->dist_cpan
363 0 4 unless ($dir = $self->status->extract)
390 0 4 unless $args = check($tmpl, \%hash)
394 0 4 if ($dist->status->created and not $force)
403 0 4 unless ($dist->status->prepared)
411 0 4 unless ($cb->_chdir('dir', $dir))
435 0 4 if $self->best_path_to_module_build
460 0 4 defined $metadata && exists $metadata->{'x_use_unsafe_inc'} ? :
461 4 0 unless defined $x_use_unsafe_inc
464 0 4 unless exists $ENV{'PERL_USE_UNSAFE_INC'}
466 0 4 unless ($cb->_chdir('dir', $dir))
471 0 4 unless ($ok)
488 0 4 unless (scalar run('command', $cmd, 'buffer', \$captured, 'verbose', $verbose))
494 0 0 if ($conf->get_conf('cpantest'))
511 0 4 if ($skiptest) { }
520 4 0 if (scalar run('command', $cmd, 'buffer', \$test_output, 'verbose', $verbose)) { }
524 0 0 $verbose ? :
530 0 0 unless ($force or $cb->_callbacks->proceed_on_test_failure->($self, $@))
534 0 0 if ($conf->get_conf('cpantest'))
545 0 4 if ($conf->get_conf('cpantest'))
556 0 4 unless ($cb->_chdir('dir', $orig))
561 0 4 if ($conf->get_conf('cpantest') and not $prereq_fail)
562 0 0 unless $cb->_send_report('module', $self, 'failed', $test_fail || $fail, 'buffer', 'CPANPLUS::Error'->stack_as_string, 'status', $status, 'verbose', $verbose, 'force', $force, 'tests_skipped', $skiptest)
574 0 4 $fail ? :
586 2 0 if $self->status->dist_cpan
605 0 2 unless my $args = check($tmpl, \%hash)
610 0 2 unless ($dir = $self->status->extract)
617 0 2 unless ($cb->_chdir('dir', $dir))
623 0 0 if (defined $self->status->installed and not $self->status->installed and not $force)
636 0 2 defined $metadata && exists $metadata->{'x_use_unsafe_inc'} ? :
637 2 0 unless defined $x_use_unsafe_inc
640 0 2 unless exists $ENV{'PERL_USE_UNSAFE_INC'}
645 0 2 if ($>) { }
662 0 0 if defined $ENV{'PERL_MB_OPT'} and $ENV{'PERL_MB_OPT'} =~ /install_base/
664 0 0 if scalar grep({/install_base/;} @buildflags)
670 0 0 unless (scalar run('command', $cmd, 'buffer', \$buffer, 'verbose', $verbose))
685 2 0 if (scalar run('command', $cmd, 'buffer', \$install_output, 'verbose', $verbose)) { }
698 0 2 unless ($cb->_chdir('dir', $orig))
702 0 2 $fail ? :
709 0 12 unless my $flags = shift()
719 12 0 if ($afe_ver) { }