Branch Coverage

lib/CPANPLUS/Internals/Report.pm
Criterion Covered Total %
branch 0 104 0.0


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 {
0 0 do {
0 0 do {
0 0 do {
0 0 sub {
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