| 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 {
|
|
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 {
|
|
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 {
|
|
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
|