| line |
true |
false |
branch |
|
138
|
1 |
14 |
unless (can_load('modules', {$mod, 0})) |
|
145
|
0 |
14 |
unless ($conf->get_program($pgm)) |
|
211
|
12 |
1 |
if $self->status->dist_cpan |
|
212
|
1 |
12 |
unless $self->status->dist_cpan |
|
219
|
1 |
12 |
unless ($dir = $self->status->extract) |
|
243
|
0 |
12 |
unless $args = check($tmpl, \%hash) |
|
249
|
3 |
9 |
if $dist->status->prepared and not $force |
|
256
|
0 |
9 |
unless ($cb->_chdir('dir', $dir)) |
|
281
|
0 |
9 |
unless ($ok) |
|
295
|
0 |
9 |
defined $metadata && exists $metadata->{'x_use_unsafe_inc'} ? : |
|
296
|
9 |
0 |
unless defined $x_use_unsafe_inc |
|
299
|
0 |
9 |
unless exists $ENV{'PERL_USE_UNSAFE_INC'} |
|
302
|
0 |
9 |
if (-e sub {
package CPANPLUS::Internals::Constants;
my $file = 'Makefile';
return @_ ? 'File::Spec'->catfile(@_, $file) : $file;
}
->() and -M sub {
package CPANPLUS::Internals::Constants;
my $file = 'Makefile';
return @_ ? 'File::Spec'->catfile(@_, $file) : $file;
}
->() < -M $dir and not $force) { } |
|
308
|
3 |
6 |
unless (-e sub {
;
}
->()) |
|
318
|
1 |
2 |
unless (-e sub {
;
}
->()) |
|
337
|
7 |
1 |
unless $run_verbose |
|
378
|
2 |
6 |
unless ($rv) |
|
393
|
0 |
6 |
if (not -e sub {
;
}
->($dir) and -e sub {
;
}
->($dir)) |
|
418
|
0 |
6 |
if ($makestat < $mplstat) |
|
433
|
0 |
6 |
unless ($prereqs) |
|
441
|
0 |
9 |
unless ($cb->_chdir('dir', $orig)) |
|
449
|
3 |
6 |
$fail ? : |
|
477
|
0 |
3 |
unless my $args = check($tmpl, \%hash) |
|
484
|
3 |
0 |
if keys %$prereqs |
|
487
|
0 |
0 |
unless ($fh->open($file)) |
|
496
|
0 |
0 |
unless $found |
|
499
|
0 |
0 |
if (defined $p{$1}) { } |
|
502
|
0 |
0 |
if $cb->_vcmp($ver, $p{$1}) > 0 |
|
548
|
9 |
0 |
if $self->status->dist_cpan |
|
549
|
0 |
9 |
unless $self->status->dist_cpan |
|
556
|
0 |
9 |
unless ($dir = $self->status->extract) |
|
585
|
0 |
9 |
unless $args = check($tmpl, \%hash) |
|
593
|
2 |
7 |
if ($dist->status->created and not $force) |
|
601
|
1 |
6 |
unless ($dist->status->prepared) |
|
610
|
1 |
5 |
unless ($cb->_chdir('dir', $dir)) |
|
620
|
0 |
5 |
defined $metadata && exists $metadata->{'x_use_unsafe_inc'} ? : |
|
621
|
5 |
0 |
unless defined $x_use_unsafe_inc |
|
624
|
0 |
5 |
unless exists $ENV{'PERL_USE_UNSAFE_INC'} |
|
637
|
0 |
5 |
unless ($cb->_chdir('dir', $dir)) |
|
642
|
0 |
5 |
unless ($ok) |
|
656
|
0 |
5 |
if (-d sub {
package CPANPLUS::Internals::Constants;
return @_ ? 'File::Spec'->catfile(@_, 'blib') : 'blib';
}
->($dir) and -M sub {
package CPANPLUS::Internals::Constants;
return @_ ? 'File::Spec'->catfile(@_, 'blib') : 'blib';
}
->($dir) < -M $dir and not $force) { } |
|
661
|
0 |
5 |
unless (scalar run('command', [$make, @makeflags], 'buffer', \$captured, 'verbose', $verbose)) |
|
666
|
0 |
0 |
if ($conf->get_conf('cpantest')) |
|
687
|
4 |
1 |
unless ($skiptest) |
|
707
|
4 |
0 |
if (scalar run('command', [$make, 'test', @makeflags], 'buffer', \$captured, 'verbose', $run_verbose)) { } |
|
715
|
0 |
4 |
if (sub {
package CPANPLUS::Internals::Constants::Report;
return unless my $buffer = shift();
if ($buffer =~ /(No tests defined( for [\w:]+ extension)?\.)/ and not $buffer =~ /\*\.t/m and not $buffer =~ /test\.pl/m) {
return $1;
} ;
return;
}
->($captured)) { } |
|
721
|
0 |
4 |
if ($conf->get_conf('cpantest')) |
|
728
|
0 |
0 |
$run_verbose ? : |
|
730
|
0 |
0 |
if ($conf->get_conf('cpantest')) |
|
743
|
0 |
0 |
unless ($force or $cb->_callbacks->proceed_on_test_failure->($self, $captured)) |
|
752
|
0 |
5 |
unless ($cb->_chdir('dir', $orig)) |
|
759
|
0 |
5 |
if ($conf->get_conf('cpantest') and not $prereq_fail) |
|
760
|
0 |
0 |
unless $cb->_send_report('module', $self, 'failed', $test_fail || $fail, 'buffer', 'CPANPLUS::Error'->stack_as_string, 'status', $status, 'verbose', $verbose, 'force', $force) |
|
771
|
0 |
5 |
$fail ? : |
|
791
|
1 |
0 |
if $self->status->dist_cpan |
|
798
|
0 |
1 |
unless ($dist->status->created) |
|
805
|
0 |
1 |
unless ($dir = $self->status->extract) |
|
824
|
0 |
1 |
unless $args = check($tmpl, \%hash) |
|
828
|
0 |
0 |
if (defined $self->status->installed and not $self->status->installed and not $force) |
|
841
|
0 |
1 |
unless ($cb->_chdir('dir', $dir)) |
|
849
|
0 |
1 |
defined $metadata && exists $metadata->{'x_use_unsafe_inc'} ? : |
|
850
|
1 |
0 |
unless defined $x_use_unsafe_inc |
|
853
|
0 |
1 |
unless exists $ENV{'PERL_USE_UNSAFE_INC'} |
|
860
|
0 |
0 |
if $sudo and $> |
|
863
|
0 |
1 |
unless (scalar run('command', $cmd, 'verbose', $verbose, 'buffer', \$captured)) |
|
874
|
0 |
1 |
unless ($cb->_chdir('dir', $orig)) |
|
878
|
0 |
1 |
$fail ? : |
|
902
|
3 |
0 |
if $self->status->dist_cpan |
|
903
|
0 |
3 |
unless $self->status->dist_cpan |
|
910
|
0 |
3 |
unless ($dir = $self->status->extract) |
|
923
|
0 |
3 |
unless my $args = check($tmpl, \%hash) |
|
926
|
1 |
2 |
if (-s $file and not $force) |
|
937
|
0 |
2 |
if $force |
|
940
|
0 |
2 |
unless ($fh->open(">$file")) |
|
979
|
0 |
0 |
if $self->status->dist_cpan |
|
980
|
0 |
0 |
unless $self->status->dist_cpan |
|
995
|
0 |
0 |
unless check($tmpl, \%hash) |
|
1000
|
0 |
0 |
unless ($dir = $self->status->extract) |
|
1007
|
0 |
0 |
unless ($cb->_chdir('dir', $dir)) |
|
1014
|
0 |
0 |
unless $dist->prepare(@_) |
|
1018
|
0 |
0 |
unless (scalar run('command', [$make, 'distdir'], 'buffer', \$captured, 'verbose', $verbose)) |
|
1030
|
0 |
0 |
unless (-d $distdir) |
|
1036
|
0 |
0 |
unless ($cb->_chdir('dir', $orig)) |
|
1041
|
0 |
0 |
if $fail |
|
1048
|
0 |
22 |
unless defined $string |
|
1049
|
0 |
22 |
if ref $string eq 'ARRAY' |
|
1051
|
21 |
1 |
unless length $string |