line |
true |
false |
branch |
52
|
30 |
4 |
if (ref $opts->{'source'} ne 'HASH' and ref $opts->{'source'} ne 'CODE') |
57
|
33 |
1 |
if (ref $opts->{'skip-tests-for'} ne 'ARRAY') |
65
|
3 |
31 |
exists $ENV{'PERL_USE_UNSAFE_INC'} ? : |
80
|
34 |
0 |
unless ($opts->{'install-man'}) |
105
|
14 |
5 |
unless (defined $source) |
113
|
0 |
5 |
if (defined $target) { } |
153
|
1 |
473 |
if ($target->{'state'} eq $COMPLETE or $target->{'state'} eq $FAILED) |
160
|
425 |
48 |
if exists $target->{'dir'} |
171
|
10 |
463 |
unless ($succ) |
182
|
0 |
10 |
if ($opts->{'stop-on-error'}) |
192
|
456 |
7 |
if $target->{'state'} ne $COMPLETE |
194
|
33 |
430 |
if ($target->{'state'} eq scalar @states) |
210
|
9 |
25 |
if (@failed > 0) |
226
|
6 |
44 |
unless _should_install($target) |
236
|
1 |
43 |
unless _should_install($target) |
241
|
43 |
0 |
if (@files == 1) |
266
|
1 |
42 |
unless defined $meta |
289
|
2 |
36 |
if (-e 'Build.PL' and not $is_mb_dep) |
294
|
0 |
2 |
unless $configured |
298
|
36 |
2 |
if (not defined $maker and -e 'Makefile.PL') |
303
|
0 |
36 |
unless $configured |
308
|
0 |
38 |
unless defined $maker |
320
|
38 |
0 |
if defined $new_meta |
352
|
37 |
1 |
unless ($skip_tests) |
357
|
20 |
17 |
if (not $skip_tests and defined $target->{'modules'}) |
361
|
0 |
40 |
if ($skips->{$module}) |
369
|
6 |
30 |
if (not $skip_tests and $opts->{'smart-tests'}) |
379
|
31 |
7 |
unless ($skip_tests) |
396
|
0 |
38 |
if (@incomplete_deps > 0) |
419
|
2 |
36 |
if ($target->{'maker'} eq 'mb') |
425
|
36 |
0 |
if ($target->{'maker'} eq 'mm') |
445
|
7 |
31 |
if ($target->{'skip_tests'}) |
450
|
2 |
29 |
if ($target->{'maker'} eq 'mb') |
456
|
29 |
0 |
if ($target->{'maker'} eq 'mm') |
476
|
2 |
31 |
if ($target->{'maker'} eq 'mb') |
482
|
31 |
0 |
if ($target->{'maker'} eq 'mm') |
498
|
15 |
18 |
if ($target->{'is_cpan'}) |
553
|
133 |
1021 |
if (ref $target eq '') |
555
|
2 |
131 |
if ($target =~ m[^ ([^/]+) @ (.*) $]msux) { } |
565
|
186 |
968 |
if (ref $target eq 'ARRAY') |
598
|
21 |
21 |
if ($alias =~ /$ident_re/u) |
617
|
76 |
471 |
unless (defined $cached_target) |
626
|
2 |
545 |
if ($cached_target->{'state'} eq $COMPLETE and $src->{'constraint'} ne $cached_target->{'constraint'}) |
637
|
652 |
989 |
if (defined $altname) |
639
|
37 |
615 |
unless (exists $cache->{'targets'}{$altname}) |
646
|
214 |
333 |
if ($src->{'src_name'} =~ /$ident_re/u) |
673
|
1 |
1 |
unless ($prereq->{'prereqs_was_installed'} and $prereq->{'was_installed'}) |
690
|
7 |
14 |
if exists $seen{$src}{$constraint} |
694
|
5 |
9 |
if (defined $constraint) |
701
|
14 |
0 |
if $ff->scheme eq 'https' |
706
|
0 |
14 |
unless defined $where |
721
|
26 |
32 |
if (-e -f $src) |
729
|
2 |
30 |
if ($src =~ git_re()) |
732
|
0 |
2 |
unless has_updated_git() |
735
|
0 |
2 |
unless has_git() |
757
|
1 |
29 |
if ($src =~ url_re()) |
763
|
6 |
24 |
if ($src =~ /$pause_re/u) |
780
|
23 |
7 |
unless (defined $url) |
790
|
30 |
0 |
if (defined $url) |
793
|
27 |
3 |
if ($url =~ /$full_pause_re/u) |
805
|
28 |
2 |
if $ff->scheme eq 'https' |
808
|
0 |
30 |
unless defined $where |
820
|
0 |
71 |
if $module eq 'perl' |
828
|
58 |
13 |
unless (defined $ver) |
842
|
38 |
43 |
$my ? : |
850
|
80 |
28 |
if defined $meta |
871
|
218 |
57 |
if (exists $Module::CoreList::version{$]}{$module}) |
877
|
11 |
264 |
if $module ne 'perl' and not $is_core |
899
|
13 |
129 |
if -r $tmp |
909
|
44 |
50 |
unless defined $target->{'module'} |
916
|
30 |
20 |
unless defined $ver |
922
|
4 |
16 |
if $target->{'was_installed'} |
924
|
6 |
14 |
unless ($target->{'update'}) |
931
|
6 |
0 |
if ($req->accepts_module($module, $ver)) |
942
|
1 |
13 |
if (defined $target->{'version'} and $target->{'version'} eq $ver) |
963
|
44 |
0 |
if (ref $sources eq 'HASH') |
968
|
0 |
44 |
if (ref $sources eq 'CODE') |
973
|
0 |
44 |
if ($opts->{'only-sources'} and not defined $new_src) |
975
|
0 |
0 |
if (exists $Module::CoreList::version{$]}{$src_name}) |
983
|
5 |
39 |
defined $new_src ? : |
993
|
25 |
15 |
if (exists $target->{'installed_version'} and not $target->{'was_installed'}) |
999
|
20 |
5 |
if $ver eq $Module::CoreList::version{$]}{$module} |
1002
|
0 |
40 |
if (exists $target->{'inital_version'} and not defined $target->{'inital_version'}) |
1008
|
0 |
0 |
if defined _get_mod_ver($target->{'module'}) |