| line |
true |
false |
branch |
|
33
|
0 |
0 |
if ($name ne 'uni-perl') |
|
38
|
0 |
0 |
unless ($name =~ /^perl-/) |
|
43
|
0 |
0 |
if (defined $CPANPLUS::Dist::Slackware::PackageDescription::Config{'usecperl'}) |
|
53
|
0 |
0 |
if (not defined $version) { } |
|
65
|
0 |
0 |
unless ($name) |
|
75
|
0 |
0 |
unless ($version) |
|
102
|
0 |
0 |
unless ($arch) |
|
104
|
0 |
0 |
if ($arch =~ /^i.86$/) { } |
|
|
0 |
0 |
elsif ($arch =~ /^arm/) { } |
|
144
|
0 |
0 |
if ($outputdir) |
|
178
|
0 |
0 |
unless ($dir) |
|
200
|
0 |
0 |
unless $wrksrc |
|
203
|
0 |
0 |
unless opendir $dh, $wrksrc |
|
205
|
0 |
0 |
if / ^(?:
AUTHORS
| BUGS
| Change(?:s|Log)(?:\.md)?
| COPYING(?:\.(?:LESSER|LIB))?
| CREDITS
| FAQ
| LICEN[CS]E
| NEWS
| README(?:\.(?:md|pod))?
| THANKS
| TODO
)$
/xi |
|
229
|
0 |
0 |
unless eval {
do {
require Pod::Find;
require Pod::Simple::PullParser
}
} |
|
235
|
0 |
0 |
unless $wrksrc |
|
242
|
0 |
0 |
if ($podfile) |
|
246
|
0 |
0 |
if ($title and $title =~ /^(?:\S+\s+)+?-+\s+(.+)/sx) { } |
|
261
|
0 |
0 |
unless eval {
do {
require Parse::CPAN::Meta
}
} |
|
264
|
0 |
0 |
unless $wrksrc |
|
269
|
0 |
0 |
if (-f $metafile) |
|
271
|
0 |
0 |
unless eval {
do {
$distmeta = &Parse::CPAN::Meta::LoadFile($metafile)
}
} |
|
273
|
0 |
0 |
if ($distmeta and $distmeta->{'abstract'} and not $distmeta->{'abstract'} =~ /unknown/i) |
|
376
|
0 |
0 |
if ($body_line_count < $max_body_line_count) { } |
|
|
0 |
0 |
elsif ($body_line_count > $max_body_line_count) { } |
|
382
|
0 |
0 |
if ($body_line_count + $link_line_count < $max_body_line_count) |
|
383
|
0 |
0 |
if ($body_line_count > 0) |
|
437
|
0 |
0 |
if ($prereq_ref) |
|
440
|
0 |
0 |
unless $modobj |
|
443
|
0 |
0 |
if $modobj->package_is_perl_core |
|
446
|
0 |
0 |
if $modobj->package_name eq 'Task-Weaken' |
|
451
|
0 |
0 |
if (not defined $s or $perl_version < 'version'->parse($s)) |
|
456
|
0 |
0 |
if defined $r and 'version'->parse($r) <= $perl_version |
|
460
|
0 |
0 |
if (not exists $prereqs{$name} or 'version'->parse($prereqs{$name}) < 'version'->parse($version)) |
|
492
|
0 |
0 |
if (@prereqs) |
|
502
|
0 |
0 |
if ($prereq_version ne '0') |
|
518
|
0 |
0 |
unless ($destdir) |
|
521
|
0 |
0 |
unless (-d $wrkdir) |
|
522
|
0 |
0 |
unless $cb->_mkdir('dir', $wrkdir) |
|
526
|
0 |
0 |
unless chmod 0755, $destdir |