| lib/CPANPLUS/Dist/Deb.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 18 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 334 | 0 | 0 | 0 | -e $pkg and -s _ |
| 0 | 0 | 0 | -e $pkg and -s _ and not $force |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 321 | 0 | 0 | 0 | $distdir || sub { package CPANPLUS::Dist::Deb::Constants; return unless my $conf = shift(); my $perl = shift() || $^X; require CPANPLUS::Internals::Utils; return 'File::Spec'->catdir($conf->get_conf('base'), 'CPANPLUS::Internals::Utils'->_perl_version('perl', $perl), $conf->_get_build('distdir'), 'debian'); } ->($conf, $perl) |
| 550 | 0 | 0 | 0 | $self->description || $self->module |
| 565 | 0 | 0 | 0 | $$_[0]->package_is_perl_core || $seen{sub { package CPANPLUS::Dist::Deb::Constants; return unless my $mod = shift(); my $pre = shift() || ''; my $pkg = lc $mod->package_name; $pkg =~ s/(\.|_)pm//gi; my $deb = $pre . 'lib' . $pkg . '-perl'; $deb =~ s/[_+]/-/g; $deb =~ s/^(${pre}lib)lib/$1/; $deb =~ s/-perl-perl$/-perl/ unless $mod->module =~ /perl$/i; return $deb; } ->($$_[0])}++ |
| 763 | 0 | 0 | 0 | $ENV{'DEBEMAIL'} || $conf->get_conf('email') |