| line |
true |
false |
branch |
|
32
|
0 |
21 |
if ($params{'cpanm'}) |
|
58
|
41 |
148 |
if exists $params{$option} |
|
70
|
60 |
18 |
if $author |
|
76
|
60 |
16 |
if $distfile |
|
82
|
21 |
7 |
if $config |
|
88
|
1 |
256 |
if $verbose |
|
94
|
0 |
18 |
if $all |
|
100
|
21 |
18 |
if $max_age |
|
106
|
20 |
21 |
if $force |
|
112
|
18 |
70 |
if $ignore_versions |
|
118
|
3 |
8 |
if ($quiet) |
|
127
|
0 |
2 |
if $dry_run |
|
133
|
2 |
4 |
if $skip |
|
139
|
1 |
73 |
if ($only) |
|
151
|
1 |
73 |
if ($exclude) |
|
163
|
21 |
5 |
if $dir |
|
169
|
21 |
19 |
if $file |
|
175
|
0 |
0 |
if $cpanm |
|
184
|
0 |
0 |
if (-e $filename) { } |
|
185
|
0 |
0 |
unless ($config->read) |
|
193
|
0 |
0 |
if ($answer =~ /^y/i) { } |
|
215
|
0 |
0 |
if (not $self->force and $mtime and $age_in_minutes > $max_age) |
|
216
|
0 |
0 |
if ($self->all) { } |
|
242
|
0 |
18 |
if ($self->all) { } |
|
244
|
0 |
0 |
if (-e $workdir) { } |
|
245
|
0 |
0 |
unless opendir my $dh, $workdir |
|
246
|
0 |
0 |
if $_ ne "." |
|
250
|
0 |
0 |
if (-e $logfile and not -d _) |
|
271
|
0 |
18 |
unless $self->_check_cpantesters_config_data |
|
281
|
0 |
18 |
unless $self->_check_build_log($logfile) |
|
283
|
0 |
18 |
unless open my $fh, "<", $logfile |
|
287
|
18 |
0 |
if ($header =~ /^cpanm \(App::cpanminus\) (\d+\.\d+) on perl (\d+\.\d+)/) { } |
|
307
|
72 |
18 |
if $dist |
|
315
|
71 |
7327 |
if (/^Fetching (\S+)/) { } |
|
|
72 |
7255 |
elsif (/^Entering (\S+)/) { } |
|
|
73 |
7182 |
elsif (/^Running (?:Build|Makefile)\.PL/) { } |
|
|
68 |
8317 |
elsif ($dist and /^Building .*(?:$dist|$dist_vstring)/) { } |
|
316
|
0 |
71 |
if /CHECKSUMS$/ |
|
318
|
17 |
54 |
unless $resource |
|
323
|
0 |
72 |
if ($recording and $recording eq 'test') { } |
|
327
|
0 |
72 |
if $self->verbose |
|
329
|
0 |
72 |
if $self->verbose |
|
337
|
0 |
68 |
if $self->verbose |
|
338
|
67 |
1 |
if /and testing/ |
|
346
|
5856 |
1470 |
if $recording |
|
349
|
5856 |
1470 |
if ($recording) |
|
350
|
69 |
5787 |
if (/^Result: (PASS|NA|FAIL|UNKNOWN|NOTESTS)/ or $recording eq 'test' and /^-> (FAIL|OK)/) { } |
|
|
2 |
5785 |
elsif ($recording eq 'configure' and m[^-> N/A]) { } |
|
|
2 |
5783 |
elsif ($recording eq 'configure' and /Configure failed for (?:$dist|$dist_vstring)/ || m[proper Makefile.PL/Build.PL] || /configure the distribution/) { } |
|
354
|
0 |
69 |
if ($result eq 'FAIL' and $recording eq 'configure') { } |
|
|
1 |
68 |
elsif ($result eq 'FAIL' and @test_output > 1 and $test_output[-2] =~ /make.*?[1-9]/) { } |
|
|
4 |
64 |
elsif ($result eq 'OK') { } |
|
|
0 |
64 |
elsif ($result eq 'NOTESTS') { } |
|
362
|
3 |
1 |
$has_tests ? : |
|
378
|
2 |
0 |
$found_na ? : |
|
381
|
71 |
7255 |
if ($result) |
|
385
|
1 |
70 |
if (@test_output <= 2) { } |
|
|
0 |
70 |
elsif (not $resource) { } |
|
|
0 |
70 |
elsif (defined $self->exclude and exists $self->exclude->{$dist_without_version}) { } |
|
|
0 |
70 |
elsif (defined $self->only and not exists $self->only->{$dist_without_version}) { } |
|
|
1 |
69 |
elsif (not $self->ignore_versions and defined $self->{'_perl_version'} and $self->{'_perl_version'} ne $]) { } |
|
393
|
0 |
0 |
if $self->verbose |
|
396
|
0 |
0 |
if $self->verbose |
|
399
|
0 |
1 |
if $self->verbose |
|
409
|
0 |
18 |
if $self->verbose |
|
411
|
0 |
18 |
if not $found and $self->verbose |
|
412
|
0 |
18 |
if $self->verbose |
|
420
|
1 |
60 |
if ($path->scheme eq 'file') { } |
|
433
|
1 |
0 |
if $path[-1] eq "" |
|
435
|
1 |
0 |
if (@path >= 3 and $path[-1] =~ /\A[A-Z\-]+\z/ and substr($path[-1], 0, 2) eq $path[-2] and substr($path[-1], 0, 1) eq $path[-3]) { } |
|
443
|
0 |
0 |
if $self->verbose |
|
456
|
0 |
0 |
if $self->verbose |
|
458
|
0 |
60 |
unless $metadata |
|
471
|
0 |
61 |
unless ($eligible_schemes{$scheme}) |
|
472
|
0 |
0 |
unless $self->quiet |
|
479
|
0 |
61 |
unless (defined $author) |
|
480
|
0 |
0 |
unless $self->quiet |
|
486
|
1 |
60 |
if ($author eq "LOCAL") |
|
487
|
0 |
1 |
unless $self->quiet |
|
502
|
1 |
3 |
if (index($dist, "Local-") == 0) |
|
503
|
0 |
1 |
unless $self->quiet |
|
507
|
1 |
2 |
unless $self->parse_uri($resource) |
|
520
|
0 |
2 |
$meta && ref $meta ? : |
|
522
|
0 |
2 |
if (not $self->skip_history and $client->is_duplicate) { } |
|
523
|
0 |
0 |
if $self->verbose |
|
528
|
0 |
2 |
unless $self->quiet |
|
542
|
0 |
2 |
if ($self->dry_run) |
|
543
|
0 |
0 |
unless $self->quiet |
|
548
|
0 |
2 |
unless $reporter->send |
|
551
|
0 |
0 |
unless $self->quiet |
|
552
|
0 |
0 |
if $self->verbose |
|
554
|
0 |
2 |
unless $self->skip_history |
|
565
|
0 |
8 |
if (-e $meta_path) |
|
567
|
0 |
0 |
if $@ |
|
569
|
0 |
0 |
if (not $meta->{'meta-spec'} or $meta->{'meta-spec'}{'version'} < 2) |