| line |
true |
false |
branch |
|
28
|
212 |
0 |
unless $key =~ /\-/ |
|
34
|
0 |
42 |
unless defined $opts{'parsers'} |
|
35
|
0 |
42 |
unless defined $opts{'recommends'} |
|
36
|
0 |
42 |
unless defined $opts{'suggests'} |
|
39
|
15 |
27 |
if $opts{'save_cpanfile'} |
|
41
|
12 |
30 |
if ($opts{'features'} and ref $opts{'features'} ne "HASH") |
|
43
|
10 |
2 |
if (not ref $opts{'features'}) { } |
|
|
2 |
0 |
elsif (ref $opts{'features'} eq 'ARRAY') { } |
|
63
|
2 |
40 |
if ($opts{'ignore'} and ref $opts{'ignore'} eq "ARRAY") |
|
73
|
1 |
41 |
if ($opts{'private'} and ref $opts{'private'} eq "ARRAY") |
|
82
|
2 |
40 |
if ($opts{'optional'} and ref $opts{'optional'} eq "ARRAY") |
|
91
|
3 |
39 |
if ($opts{'optional_re'}) |
|
95
|
0 |
42 |
if (my $index_name = delete $opts{'use_index'}) |
|
97
|
0 |
0 |
if (eval "require $index_package; 1") |
|
102
|
2 |
40 |
if ($opts{'scan_also'}) |
|
112
|
42 |
0 |
unless (@args) |
|
120
|
0 |
42 |
if ($self->{'blib'} and -d 'File::Spec'->catdir($self->{'base_dir'}, 'blib')) { } |
|
129
|
40 |
2 |
unless $self->{'libs'} |
|
132
|
0 |
42 |
if $self->{'develop'} |
|
135
|
0 |
42 |
if ($self->{'verbose'}) |
|
141
|
35 |
294 |
'File::Spec'->file_name_is_absolute($path) ? : |
|
142
|
32 |
275 |
-f $item ? : |
|
|
22 |
307 |
-d $item ? : |
|
152
|
6 |
36 |
if ($self->{'exclude_core'}) |
|
156
|
0 |
42 |
if ($self->{'index'}) |
|
162
|
15 |
27 |
if ($self->{'print'} or $self->{'cpanfile'}) |
|
163
|
0 |
15 |
if ($self->{'json'}) { } |
|
|
15 |
0 |
elsif ($self->{'cpanfile'}) { } |
|
|
0 |
0 |
elsif ($self->{'print'}) { } |
|
165
|
0 |
0 |
unless eval {
do {
require JSON::PP
}
} |
|
168
|
0 |
15 |
unless eval {
do {
require Perl::PrereqScanner::NotQuiteLite::Util::CPANfile
}
} |
|
172
|
0 |
15 |
if $self->{'index'} |
|
174
|
15 |
0 |
if ($self->{'save_cpanfile'}) { } |
|
|
0 |
0 |
elsif ($self->{'print'}) { } |
|
199
|
0 |
0 |
if $module eq "perl" |
|
201
|
0 |
0 |
unless $version =~ /^[0-9]+(?:\.[0-9]+)?$/ |
|
202
|
0 |
0 |
$version eq '0' ? : |
|
211
|
0 |
54 |
if $self->{'develop'} |
|
212
|
0 |
0 |
$self->{'recommends'} ? : |
|
|
54 |
0 |
$self->{'suggests'} ? : |
|
217
|
591 |
57 |
unless $req->required_modules |
|
222
|
18 |
36 |
if ($self->{'features'}) |
|
223
|
0 |
18 |
unless $self->{'features'} |
|
228
|
162 |
18 |
unless $req->required_modules |
|
241
|
40 |
2 |
unless $self->{'libs'} |
|
244
|
42 |
2 |
unless -d $local_dir |
|
248
|
4 |
2 |
unless -f $file |
|
251
|
0 |
2 |
unless $relpath =~ /\.pm$/ |
|
256
|
1 |
1 |
if $dir eq "inc" |
|
265
|
153 |
3 |
unless $self->{'possible_modules'}{$module} or $private_re and $module =~ /$private_re/ |
|
267
|
0 |
8 |
if ($self->{'verbose'}) |
|
277
|
0 |
6 |
unless eval {
do {
require Module::CoreList;
"Module::CoreList"->VERSION("2.99")
}
} |
|
280
|
1 |
5 |
if ($perl_version =~ /^v?5\.(0?[1-9][0-9]?)(?:\.([0-9]))?$/) |
|
283
|
0 |
6 |
unless exists $Module::CoreList::version{$perl_version} |
|
298
|
0 |
27 |
if exists $core_alias{$module} |
|
299
|
20 |
7 |
if (Module::CoreList::is_core($module, undef, $perl_version) and not Module::CoreList::deprecated_in($module, undef, $perl_version)) |
|
302
|
0 |
20 |
unless my $core_version = $Module::CoreList::version{$perl_version}{$module} |
|
303
|
1 |
19 |
unless $req->accepts_module($module, $core_version) |
|
305
|
0 |
19 |
if ($self->{'verbose'}) |
|
319
|
1 |
7 |
if $perl_req |
|
321
|
6 |
0 |
$perl_requirements->is_simple ? : |
|
327
|
42 |
0 |
if (my $test_reqs = $self->{'prereqs'}->requirements_for("test", "requires")) |
|
330
|
1 |
9 |
if exists $IsTestClassFamily{$module} |
|
331
|
7 |
3 |
unless my $relpath = $self->{'possible_modules'}{$module} |
|
332
|
0 |
3 |
unless my $context = delete $self->{'_test_pm'}{$relpath} |
|
334
|
3 |
0 |
if ($self->{'recommends'} or $self->{'suggests'}) |
|
337
|
3 |
0 |
if ($self->{'suggests'}) |
|
341
|
2 |
40 |
if ($force) |
|
342
|
0 |
2 |
unless $self->{'_test_pm'} |
|
344
|
2 |
0 |
if ($self->{'recommends'} or $self->{'suggests'}) |
|
347
|
2 |
0 |
if ($self->{'suggests'}) |
|
360
|
30 |
12 |
unless $self->{'features'} |
|
372
|
0 |
0 |
unless my $res = $self->{'index'}->search_packages({"package", $module}) |
|
374
|
0 |
0 |
if "URI"->new($res->{'uri'})->dist_name eq "perl" |
|
386
|
0 |
0 |
if $module eq "perl" |
|
387
|
0 |
0 |
unless my $uri = $self->_get_uri($module) |
|
392
|
0 |
0 |
if @modules < 2 |
|
395
|
0 |
0 |
unless @modules_without_version |
|
398
|
0 |
0 |
if (@modules > @modules_without_version) |
|
406
|
0 |
0 |
if ($self->_get_uri($main_module)) { } |
|
409
|
0 |
0 |
if $main_module eq $module |
|
411
|
0 |
0 |
if ($self->{'verbose'}) |
|
423
|
0 |
0 |
unless $score{$a} <=> $score{$b} |
|
425
|
0 |
0 |
if $topmost eq $module |
|
427
|
0 |
0 |
if ($self->{'verbose'}) |
|
442
|
45 |
42 |
unless -f $file |
|
447
|
0 |
0 |
unless $relpath =~ /\.(?:pl|PL|pm|cgi|psgi|t)$/ or dirname($relpath) =~ /\b(?:bin|scripts?)$/ or $self->{'develop'} and $relpath =~ /^(?:author)\b/ |
|
457
|
6 |
68 |
if ($self->{'ignore_re'}) |
|
458
|
3 |
3 |
if $file =~ /\b$self->{'ignore_re'}\b/ |
|
461
|
3 |
68 |
$self->{'optional_re'} && $file =~ /\b$self->{'optional_re'}\b/ ? : |
|
475
|
22 |
49 |
if ($self->{'features'}) |
|
478
|
12 |
10 |
if (grep {$file =~ m[^$_(?:/|$)];} @{$$feature{"paths"};}) |
|
485
|
10 |
61 |
if ($relpath =~ m[(?:^|[\\/])t[\\/]]) { } |
|
|
0 |
61 |
elsif ($relpath =~ m[(?:^|[\\/])(?:xt|inc|author)[\\/]]) { } |
|
|
0 |
61 |
elsif ($relpath =~ m[(?:(?:^|[\\/])Makefile|^Build)\.PL$]) { } |
|
|
0 |
61 |
elsif ($relpath =~ m[(?:^|[\\/])(?:.+)\.PL$]) { } |
|
486
|
3 |
7 |
if ($relpath =~ /\.t$/) { } |
|
|
6 |
1 |
elsif ($relpath =~ /\.pm$/) { } |
|
501
|
67 |
4 |
if ($relpath =~ /\.pm$/) |
|
519
|
64 |
0 |
if ($self->{'suggests'} or $self->{'recommends'}) |
|
524
|
64 |
0 |
if ($self->{'suggests'}) |