| 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
|
5 |
0 |
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
|
4 |
0 |
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
|
2 |
0 |
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) { } |