| line |
true |
false |
branch |
|
73
|
0 |
4 |
if @_ % 2 |
|
89
|
1 |
3 |
unless ref $self{'want'} |
|
97
|
4 |
0 |
if (@_) |
|
98
|
4 |
0 |
if (my $skip = shift()) { } |
|
99
|
0 |
4 |
if (ref $skip eq 'HASH') { } |
|
|
0 |
4 |
elsif (ref $skip eq 'ARRAY') { } |
|
|
0 |
4 |
elsif ($skip =~ /^\x20-\xff]+$/u and open my $fh, '<', $skip) { } |
|
109
|
0 |
0 |
unless /^\s*(\w[-\w]+)(?:\s+(.*))?$/u |
|
133
|
0 |
1 |
unless my $src = $self->{'cpansa'} |
|
134
|
0 |
1 |
if $self->{'verbose'} |
|
188
|
0 |
1 |
if (-s $src) { } |
|
189
|
0 |
0 |
unless open my $fh, "<", $src |
|
196
|
0 |
1 |
unless $r->{'success'} |
|
198
|
0 |
1 |
if $self->{'verbose'} > 1 |
|
199
|
1 |
0 |
if (my $c = $r->{'content'}) { } |
|
203
|
0 |
1 |
if $c =~ s/^\s*([^{]+?)[\s\r\n]*\{/{/su |
|
207
|
1 |
0 |
if (ref $self->{'j'}{'db'} eq "HASH" and my(@jk) = sort(keys %{$$self{"j"}{"db"};})) |
|
209
|
0 |
319 |
unless $self->{'j'}{'db'}{$k} |
|
210
|
102 |
1629 |
unless my $s = $r->{'cve'} |
|
211
|
1629 |
0 |
if ref $s |
|
212
|
0 |
0 |
unless $s =~ /^{/u |
|
230
|
0 |
11 |
if $self->{'verbose'} |
|
231
|
0 |
11 |
unless open my $fh, "<", $mf |
|
235
|
0 |
11 |
unless $mfc |
|
246
|
11 |
17 |
if $mfx =~ /^ VERSION $a /iux |
|
247
|
0 |
28 |
if $mfx =~ /^ VERSION_FROM $a /iux |
|
248
|
11 |
17 |
if $mfx =~ /^ NAME $a /iux |
|
249
|
2 |
26 |
if $mfx =~ /^ DISTNAME $a /iux |
|
250
|
3 |
25 |
if $mfx =~ /^ MIN_PERL_VERSION $a /iux |
|
253
|
0 |
11 |
unless ($release or $nm) |
|
257
|
8 |
3 |
unless ($pv) |
|
258
|
8 |
0 |
if $mfc =~ /^\s*(?:use|require)\s+v?(5[.0-9]+)/mu |
|
260
|
2 |
9 |
if $pv =~ /^5\.(\d+)\.(\d+)$/u |
|
261
|
6 |
5 |
if $pv =~ /^5\.(\d{1,3})$/u |
|
264
|
0 |
11 |
if $release eq "." and $nm |
|
265
|
0 |
0 |
if (not $v and $vf and open $fh, "<", $vf) |
|
266
|
0 |
0 |
if $self->{'verbose'} |
|
268
|
0 |
0 |
unless /\b VERSION \s* = \s* ["']? ([^;'"\s]+) /ux |
|
274
|
0 |
11 |
unless ($v) |
|
275
|
0 |
0 |
if $mfc =~ /\$\s*VERSION\s*=\s*["']?(\S+?)['"]?\s*;/u |
|
277
|
0 |
11 |
unless ($v) |
|
283
|
0 |
0 |
$pv ? : |
|
|
0 |
11 |
if $self->{'verbose'} |
|
292
|
0 |
1 |
unless -s $cpf |
|
293
|
0 |
1 |
if $self->{'verbose'} |
|
294
|
0 |
1 |
unless open my $fh, "<", $cpf |
|
296
|
38 |
37 |
unless my($t, $m, $v) = / \b
( requires | recommends | suggest ) \s+
["'] (\S+) ['"]
(?: \s*(?:=>|,)\s* ["'] (\S+) ['"])?
/ux |
|
308
|
1 |
36 |
if (/#.*\bignore\s*[=:]?\s*(\S+)/iu) |
|
319
|
0 |
0 |
if length $_ |
|
324
|
0 |
0 |
unless $mmf and -s $mmf |
|
325
|
0 |
0 |
if $self->{'verbose'} |
|
326
|
0 |
0 |
unless open my $fh, "<", $mmf |
|
329
|
0 |
0 |
if ($mmf =~ /\.yml$/u) { } |
|
361
|
0 |
0 |
unless ($self->{'mf'}) |
|
369
|
0 |
0 |
unless my $pr = $j->{'prereqs'} |
|
372
|
0 |
0 |
unless my $x = $pr->{$p}{$t} |
|
398
|
2 |
0 |
unless (&first(sub {
$_ eq $m;
}
, @{$$self{"want"};})) |
|
401
|
1 |
1 |
unless $self->{'j'} |
|
402
|
1 |
1 |
if $self->{'j'}{'db'}{$m} |
|
411
|
0 |
0 |
unless $self->{'mf'} |
|
412
|
0 |
0 |
unless $self->{'mf'} |
|
413
|
0 |
0 |
unless my $rel = $self->{'mf'}{'release'} |
|
414
|
0 |
0 |
if $self->{'verbose'} |
|
416
|
0 |
0 |
unless $self->{'j'}{'mod'} |
|
417
|
0 |
0 |
if $self->{'deps'} |
|
418
|
0 |
0 |
if $self->{'deps'} and not $meta |
|
419
|
0 |
0 |
if $self->{'deps'} |
|
421
|
0 |
0 |
if $self->{'j'}{'db'}{$rel} |
|
425
|
0 |
0 |
unless my(@w) = @{$self->{'want'};} |
|
428
|
0 |
0 |
if $m eq "perl" and not $self->{'perl'} |
|
430
|
0 |
0 |
unless $_ |
|
|
0 |
0 |
unless $self->{'prereq'}{$m}{'v'} |
|
431
|
0 |
0 |
if ($self->{'core'} and my $pv = $self->{'mf'}{'mpv'} and not join($", @mv) =~ /[1-9]/u) |
|
434
|
0 |
0 |
if $pmv |
|
436
|
0 |
0 |
if $self->{'verbose'} |
|
450
|
0 |
0 |
if (ref $cds ne "ARRAY") |
|
451
|
0 |
0 |
if $cds =~ /^{/u |
|
459
|
0 |
0 |
unless $c->{'affected_versions'} |
|
460
|
0 |
0 |
if (my $i = $self->{'prereq'}{$m}{'i'}) |
|
463
|
0 |
0 |
if ("#$m#") =~ /$p/u |
|
465
|
0 |
0 |
if (@vsn) { } |
|
466
|
0 |
0 |
if $self->{'verbose'} > 2 |
|
467
|
0 |
0 |
if $self->{'verbose'} > 4 |
|
478
|
0 |
0 |
if $self->{'verbose'} > 2 |
|
479
|
0 |
0 |
if eval "$cmp ? 0 : 1" |
|
480
|
0 |
0 |
if $self->{'verbose'} > 3 |
|
503
|
0 |
0 |
unless $self->{'j'} |
|
505
|
0 |
0 |
if @_ % 2 |
|
512
|
0 |
0 |
unless my $C = $self->{'CVE'}{$m} |
|
513
|
0 |
0 |
unless my(@c) = @{$C->{'cve'};} |
|
523
|
0 |
0 |
unless $n |
|
529
|
0 |
0 |
unless $self->{'j'} |
|
531
|
0 |
0 |
if @_ % 2 |
|
538
|
0 |
0 |
unless my $C = $self->{'CVE'}{$m} |
|
539
|
0 |
0 |
unless my(@c) = @{$C->{'cve'};} |
|
550
|
0 |
0 |
if (not exists $attr{'author'} and (caller)[1] =~ m[(?:^|/)xt/[^/]+\.t$]u || $ENV{'AUTHOR_TESTING'} || -d '.git' && $^X =~ m[/perl$]u) |
|
556
|
0 |
0 |
unless ($attr{'author'}) |
|
566
|
0 |
0 |
if (@cve) { } |