| line |
true |
false |
branch |
|
82
|
0 |
0 |
unless my $args = check($tmpl, \%hash) |
|
85
|
0 |
0 |
can_load('modules', $query_list, 'verbose', $args->{'verbose'}) ? : |
|
98
|
0 |
0 |
unless my $args = check($tmpl, \%hash) |
|
101
|
0 |
0 |
can_load('modules', $send_list, 'verbose', $args->{'verbose'}) ? : |
|
169
|
0 |
0 |
unless check($tmpl, \%hash) |
|
172
|
0 |
0 |
unless $self->_have_query_report_modules("verbose", 1) |
|
192
|
0 |
0 |
unless ($where) |
|
205
|
0 |
0 |
if ($@) |
|
216
|
0 |
0 |
unless $all or defined $href->{'distversion'} and $href->{'distversion'} eq $dist |
|
227
|
0 |
0 |
if @rv |
|
294
|
0 |
0 |
unless ($self->_have_send_report_modules("verbose", 1)) |
|
319
|
0 |
0 |
unless check($tmpl, \%hash) |
|
341
|
0 |
0 |
if ($failed) { } |
|
359
|
0 |
0 |
if ($prq_name eq "perl") |
|
361
|
0 |
0 |
unless $req_ver |
|
362
|
0 |
0 |
if ("version"->new($]) < $req_ver) |
|
383
|
0 |
0 |
unless ($obj or defined &$sub($prq_name)) |
|
392
|
0 |
0 |
unless ($obj) |
|
394
|
0 |
0 |
if ($cb->_vcmp($prq_ver, $vcore) > 0) |
|
405
|
0 |
0 |
if ($obj and $cb->_vcmp($prq_ver, $obj->installed_version) > 0) |
|
417
|
0 |
0 |
do {
not $stage =~ /\btest\b/
} ? : |
|
|
0 |
0 |
do {
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;
}
->($buffer)
} ? : |
|
|
0 |
0 |
do {
sub {
package CPANPLUS::Internals::Constants::Report;
return unless my $buffer = shift();
if ($buffer =~ /Perl .*? required--this is only .*?/m) {
return 1;
} ;
if ($buffer =~ /ERROR:( perl:)? Version .*?( of perl)? is installed, but we need version >= .*?/m) {
return 1;
} ;
return 0;
}
->($buffer)
} ? : |
|
|
0 |
0 |
do {
sub {
package CPANPLUS::Internals::Constants::Report;
return unless my $buffer = shift();
if ($buffer =~ /No support for OS|OS unsupported/im) {
return 1;
} ;
return 0;
}
->($buffer)
} ? : |
|
|
0 |
0 |
sub {
package CPANPLUS::Internals::Constants::Report;
return unless my $mod = shift();
my $name = $mod->module;
my $specific;
foreach my $platform (keys %OS) {
if ($name =~ /^$platform\b/i) {
next if $platform eq 'Mac' and not $name =~ /^$platform\b/;
++$specific;
return 1 if $^O =~ /^(?:$OS{$platform})$/;
} ;
} ;
return $specific ? 0 : 1;
}
->($mod) ? : |
|
465
|
0 |
0 |
if ($grade eq 'fail' or $grade eq 'unknown') { } |
|
|
0 |
0 |
elsif ($tests_skipped) { } |
|
|
0 |
0 |
elsif ($grade eq 'na') { } |
|
|
0 |
0 |
elsif ($grade eq 'pass' and ($status and defined $status->{'capture'})) { } |
|
468
|
0 |
0 |
if (my(@missing) = sub { ;}->($buffer)) |
|
475
|
0 |
0 |
if $cp_conf =~ /\bmaketest_only\b/i and not $stage =~ /\btest\b/ |
|
478
|
0 |
0 |
$status && defined $status->{'capture'} ? : |
|
483
|
0 |
0 |
if (my(@missing) = sub { ;}->($buffer)) |
|
484
|
0 |
0 |
unless ($self->_verify_missing_prereqs("module", $mod, "missing", \@missing)) |
|
496
|
0 |
0 |
if (sub { ;}->($buffer)) |
|
515
|
0 |
0 |
$status && defined $status->{'capture'} ? : |
|
555
|
0 |
0 |
unless (UNIVERSAL::isa($args, "HASH")) |
|
573
|
0 |
0 |
if $conf->get_conf("cpantest_mx") |
|
577
|
0 |
0 |
unless $conf->get_conf("email") =~ /\@example\.\w+$/i |
|
584
|
0 |
0 |
if defined $message and length $message |
|
587
|
0 |
0 |
unless ($self->_callbacks->send_test_report->($mod, $grade)) |
|
593
|
0 |
0 |
if ($self->_callbacks->edit_test_report->($mod, $grade)) |
|
597
|
0 |
0 |
if $conf->get_program("editor") |
|
607
|
0 |
0 |
if ($save) { } |
|
608
|
0 |
0 |
if (my $file = $reporter->write) { } |
|
626
|
0 |
0 |
if ($@) |
|
631
|
0 |
0 |
if ($status) |
|
653
|
0 |
0 |
unless check($tmpl, \%hash) |
|
669
|
0 |
0 |
$extract ? : |
|
670
|
0 |
0 |
$extract ? : |
|
673
|
0 |
0 |
if (-e $file and -r $file) |
|
683
|
0 |
0 |
if keys %missing |