| line |
true |
false |
branch |
|
48
|
25 |
4 |
if (ref $opts->{'source'} ne 'HASH' and ref $opts->{'source'} ne 'CODE') |
|
53
|
28 |
1 |
if (ref $opts->{'skip-tests-for'} ne 'ARRAY') |
|
61
|
3 |
26 |
exists $ENV{'PERL_USE_UNSAFE_INC'} ? : |
|
76
|
29 |
0 |
unless ($opts->{'install-man'}) |
|
120
|
1 |
273 |
if ($target->{'state'} eq $COMPLETE) |
|
127
|
234 |
39 |
if exists $target->{'dir'} |
|
137
|
262 |
5 |
if $target->{'state'} ne $COMPLETE |
|
139
|
29 |
238 |
if ($target->{'state'} eq scalar @states) |
|
163
|
19 |
21 |
if (defined $target->{'module'}) |
|
171
|
1 |
18 |
if $target->{'was_installed'} |
|
173
|
1 |
18 |
if (defined $ver and $target->{'version'} eq $ver) |
|
183
|
4 |
14 |
if (defined $ver and not $target->{'update'}) |
|
190
|
4 |
0 |
if ($req->accepts_module($module, $ver)) |
|
205
|
35 |
0 |
if (@files == 1) |
|
230
|
1 |
34 |
unless defined $meta |
|
256
|
2 |
31 |
if (-e 'Build.PL' and not $is_mb_dep) |
|
261
|
0 |
2 |
unless $configured |
|
265
|
31 |
2 |
if (not defined $maker and -e 'Makefile.PL') |
|
270
|
0 |
31 |
unless $configured |
|
275
|
0 |
33 |
unless defined $maker |
|
323
|
32 |
1 |
unless ($skip_tests) |
|
328
|
12 |
20 |
if (not $skip_tests and defined $target->{'module'}) |
|
334
|
2 |
31 |
if ($target->{'maker'} eq 'mb') |
|
337
|
2 |
0 |
unless $skip_tests |
|
343
|
31 |
0 |
if ($target->{'maker'} eq 'mm') |
|
346
|
29 |
2 |
unless $skip_tests |
|
362
|
14 |
15 |
if ($target->{'is_cpan'}) |
|
428
|
266 |
55 |
if ref $target eq 'HASH' |
|
431
|
41 |
14 |
if (ref $target eq '') |
|
433
|
1 |
40 |
if ($target =~ m[^ ([^/]+) @ (.*) $]msux) { } |
|
443
|
55 |
0 |
if (ref $target eq 'ARRAY') |
|
452
|
2 |
53 |
if (exists $cache->{'targets'}{$target->{'src_name'}}) |
|
455
|
1 |
1 |
if ($cached_target->{'state'} eq $COMPLETE and $target->{'constraint'} ne $cached_target->{'constraint'}) |
|
476
|
10 |
14 |
if (defined $constraint) |
|
483
|
24 |
0 |
if $ff->scheme eq 'https' |
|
488
|
0 |
24 |
unless defined $where |
|
500
|
19 |
35 |
if (-e -f $src) |
|
508
|
2 |
33 |
if ($src =~ /$git_re/u) |
|
529
|
1 |
32 |
if ($src =~ /$url_re/u) |
|
535
|
6 |
27 |
if ($src =~ /$pause_re/u) |
|
552
|
26 |
7 |
unless (defined $url) |
|
563
|
33 |
0 |
if (defined $url) |
|
566
|
30 |
3 |
if ($url =~ /$full_pause_re/u) |
|
578
|
31 |
2 |
if $ff->scheme eq 'https' |
|
581
|
0 |
33 |
unless defined $where |
|
593
|
0 |
19 |
if $module eq 'perl' |
|
601
|
17 |
2 |
unless (defined $ver) |
|
615
|
33 |
35 |
$my ? : |
|
623
|
67 |
21 |
if defined $meta |
|
645
|
214 |
49 |
if (defined $version) |
|
650
|
8 |
255 |
if $module ne 'perl' and not $is_core |
|
672
|
2 |
36 |
if -r $tmp |
|
684
|
266 |
0 |
if (ref $target eq 'HASH' and exists $target->{'state'}) |
|
690
|
15 |
26 |
if (ref $target eq 'ARRAY') |
|
695
|
0 |
41 |
if (ref $target eq 'HASH') |
|
702
|
41 |
0 |
if (ref $sources eq 'HASH') |
|
707
|
0 |
41 |
if (ref $sources eq 'CODE') |
|
712
|
2 |
39 |
if ($opts->{'only-sources'}) |
|
714
|
0 |
2 |
unless $new_src |
|
719
|
3 |
36 |
defined $new_src ? : |