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