| 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)) |
|
144
|
5 |
0 |
unless exists $ENV{'PERL_USE_UNSAFE_INC'} |
|
155
|
5 |
0 |
if ('version'->new($CPANPLUS::Internals::VERSION) >= $safe_ver) |
|
166
|
0 |
5 |
unless ($ok) |
|
189
|
1 |
4 |
unless (scalar run('command', $cmd, 'buffer', \$prep_output, 'verbose', $verbose)) |
|
194
|
0 |
1 |
if ($conf->get_conf('cpantest')) |
|
201
|
0 |
4 |
unless (-e sub {
;
}
->($dir)) |
|
203
|
0 |
0 |
if ($conf->get_conf('cpantest')) |
|
236
|
0 |
5 |
unless ($cb->_chdir('dir', $orig)) |
|
244
|
1 |
4 |
$fail ? : |
|
263
|
0 |
2 |
unless my $args = check($tmpl, \%hash) |
|
267
|
2 |
0 |
if $dist->can('find_mymeta_requires') |
|
270
|
1 |
1 |
if (keys %$prereqs) { } |
|
277
|
1 |
0 |
if ('version'->new($Module::Build::VERSION) >= $safe_ver and 'IPC::Cmd'->can_capture_buffer) |
|
283
|
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)) { } |
|
297
|
0 |
0 |
unless -f $file |
|
301
|
0 |
0 |
unless ($fh->open($file)) |
|
310
|
0 |
1 |
unless $content |
|
312
|
0 |
1 |
unless $bphash and ref $bphash eq 'HASH' |
|
314
|
3 |
0 |
unless $bphash->{$type} and ref $bphash->{$type} eq 'HASH' |
|
320
|
0 |
2 |
unless 'version'->new($CPANPLUS::Internals::VERSION) >= 'version'->new('0.9102') |
|
332
|
2 |
0 |
$cb->_callbacks->can('filter_prereqs') ? : |
|
351
|
4 |
0 |
if $self->status->dist_cpan |
|
352
|
0 |
4 |
unless $self->status->dist_cpan |
|
359
|
0 |
4 |
unless ($dir = $self->status->extract) |
|
386
|
0 |
4 |
unless $args = check($tmpl, \%hash) |
|
390
|
0 |
4 |
if ($dist->status->created and not $force) |
|
399
|
0 |
4 |
unless ($dist->status->prepared) |
|
407
|
0 |
4 |
unless ($cb->_chdir('dir', $dir)) |
|
431
|
0 |
4 |
if $self->best_path_to_module_build |
|
443
|
4 |
0 |
unless exists $ENV{'PERL_USE_UNSAFE_INC'} |
|
458
|
0 |
4 |
unless ($cb->_chdir('dir', $dir)) |
|
463
|
0 |
4 |
unless ($ok) |
|
480
|
0 |
4 |
unless (scalar run('command', $cmd, 'buffer', \$captured, 'verbose', $verbose)) |
|
486
|
0 |
0 |
if ($conf->get_conf('cpantest')) |
|
503
|
0 |
4 |
if ($skiptest) { } |
|
512
|
4 |
0 |
if (scalar run('command', $cmd, 'buffer', \$test_output, 'verbose', $verbose)) { } |
|
516
|
0 |
0 |
$verbose ? : |
|
522
|
0 |
0 |
unless ($force or $cb->_callbacks->proceed_on_test_failure->($self, $@)) |
|
526
|
0 |
0 |
if ($conf->get_conf('cpantest')) |
|
537
|
0 |
4 |
if ($conf->get_conf('cpantest')) |
|
548
|
0 |
4 |
unless ($cb->_chdir('dir', $orig)) |
|
553
|
0 |
4 |
if ($conf->get_conf('cpantest') and not $prereq_fail) |
|
554
|
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) |
|
566
|
0 |
4 |
$fail ? : |
|
578
|
2 |
0 |
if $self->status->dist_cpan |
|
597
|
0 |
2 |
unless my $args = check($tmpl, \%hash) |
|
602
|
0 |
2 |
unless ($dir = $self->status->extract) |
|
609
|
0 |
2 |
unless ($cb->_chdir('dir', $dir)) |
|
615
|
0 |
0 |
if (defined $self->status->installed and not $self->status->installed and not $force) |
|
628
|
2 |
0 |
unless exists $ENV{'PERL_USE_UNSAFE_INC'} |
|
633
|
0 |
2 |
if ($>) { } |
|
650
|
0 |
0 |
if defined $ENV{'PERL_MB_OPT'} and $ENV{'PERL_MB_OPT'} =~ /install_base/ |
|
652
|
0 |
0 |
if scalar grep({/install_base/;} @buildflags) |
|
658
|
0 |
0 |
unless (scalar run('command', $cmd, 'buffer', \$buffer, 'verbose', $verbose)) |
|
673
|
2 |
0 |
if (scalar run('command', $cmd, 'buffer', \$install_output, 'verbose', $verbose)) { } |
|
686
|
0 |
2 |
unless ($cb->_chdir('dir', $orig)) |
|
690
|
0 |
2 |
$fail ? : |
|
697
|
0 |
12 |
unless my $flags = shift() |
|
707
|
12 |
0 |
if ($afe_ver) { } |