| blib/lib/CPANPLUS/Dist/Debora/Package.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 38 | 71 | 53.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 101 | 5 | 1 | 0 | $installdirs ne "vendor" and $installdirs ne "site" |
| 416 | 8 | 0 | 0 | $entry =~ /[.]bs \z/msux and -z $path |
| 652 | 0 | 0 | 1 | defined $author and ref $author ne "CPANPLUS::Module::Author::Fake" |
| 688 | 0 | 0 | 1 | $value and $value =~ /$EMAIL/u |
| 762 | 0 | 0 | 4 | $text and not $text =~ /unknown/imsux |
| 822 | 0 | 0 | 3 | defined $meta and ref $meta->{'prereqs'} eq "HASH" |
| 1018 | 3 | 0 | 0 | @names > 1 && /\b OR \b/imsux |
| line | l | !l | condition |
|---|---|---|---|
| 468 | 0 | 0 | eval { do { decode_utf8($output) } } // "" |
| 481 | 0 | 0 | $config->get_program("sudo") // "sudo" |
| 524 | 17 | 1 | $dist_version // 0 |
| 786 | 3 | 0 | ($self->_get_summary_from_meta // $self->_get_summary_from_pod) // "Module for the Perl programming language" |
| 819 | 3 | 0 | $self->module->status->prereqs // {} |
| 823 | 3 | 0 | $meta->{'prereqs'}{'runtime'} // {} |
| 824 | 3 | 0 | $meta_runtime->{'requires'} // {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 383 | 64 | 64 | 76 | $entry eq "." or $entry eq ".." |
| 416 | 4 | 4 | 8 | $entry eq "perllocal.pod" or $entry eq ".packlist" |
| 8 | 0 | 8 | $entry eq "perllocal.pod" or $entry eq ".packlist" or $entry =~ /[.]la \z/msux | |
| 4 | 0 | 8 | $entry eq "perllocal.pod" or $entry eq ".packlist" or $entry =~ /[.]la \z/msux or $entry =~ /[.]bs \z/msux and -z $path | |
| 576 | 0 | 3 | 0 | $POD_FOR{$self->dist_name} // $self->module_name |
| 747 | 3 | 0 | 0 | not $vendor or $vendor =~ /%/msux |
| 786 | 3 | 0 | 0 | $self->_get_summary_from_meta // $self->_get_summary_from_pod |
| 873 | 0 | 0 | 12 | $module_name eq 'perl' || module_is_distributed_with_perl($module_name, $version) || $module->package_is_perl_core |
| 882 | 12 | 0 | 0 | not exists $dependency{$module_name} or $dependency{$module_name}{'version'} < $version |
| 1068 | 5 | 5 | 5 | $entry eq "." or $entry eq ".." |
| 1094 | 5 | 5 | 100 | $entry eq "." or $entry eq ".." |
| 1190 | 40 | 40 | 47 | $entry eq "." or $entry eq ".." |