| line |
true |
false |
branch |
|
22
|
1 |
0 |
if $fetch->isa(__PACKAGE__)
|
|
23
|
0 |
1 |
unless $fetch
|
|
27
|
0 |
0 |
unless $mirrors and ref $mirrors eq "ARRAY" and scalar @{$mirrors;}
|
|
31
|
0 |
1 |
$mirror->isa('URI') ? :
|
|
35
|
1 |
0 |
if $stat
|
|
42
|
1 |
0 |
if $file->isa(__PACKAGE__)
|
|
43
|
0 |
1 |
unless $file
|
|
48
|
0 |
1 |
unless $ae
|
|
49
|
0 |
1 |
unless $ae->extract("to", $loc)
|
|
56
|
1 |
0 |
if exists $ENV{'PERL5_SMOKEBREW_DIR'} and defined $ENV{'PERL5_SMOKEBREW_DIR'}
|
|
61
|
0 |
0 |
unless exists $ENV{$env}
|
|
62
|
0 |
0 |
unless defined $ENV{$env} and length $ENV{$env}
|
|
63
|
0 |
0 |
if -d $ENV{$env}
|
|
71
|
7 |
1 |
if $type->isa(__PACKAGE__)
|
|
72
|
1 |
7 |
if ($type and $type eq "latest")
|
|
76
|
18 |
47 |
unless (exists $perls{$vers})
|
|
80
|
47 |
0 |
if $pv > $perls{$vers}
|
|
86
|
2 |
5 |
unless ($type and $type =~ /^(rel|dev|recent|modern)$/i)
|
|
87
|
1 |
1 |
if $type
|
|
93
|
324 |
1944 |
if ($type and $type eq 'rel') { }
|
|
|
324 |
1620 |
elsif ($type and $type eq 'dev') { }
|
|
|
648 |
972 |
elsif ($type and $type eq 'recent') { }
|
|
|
324 |
648 |
elsif ($type and $type eq 'modern') { }
|
|
|
324 |
324 |
elsif ($type) { }
|
|
94
|
99 |
225 |
if _is_rel($_) and not _is_ancient($_)
|
|
97
|
215 |
109 |
if _is_dev($_)
|
|
100
|
170 |
478 |
if _is_recent($_)
|
|
103
|
84 |
240 |
if _is_modern($_)
|
|
109
|
109 |
215 |
unless _is_dev($_)
|
|
113
|
2198 |
70 |
if ($_ >= 5.006) { }
|
|
119
|
1 |
1 |
if $pv->numify >= "5.021004"
|
|
125
|
20 |
1572 |
if _is_ancient($pv)
|
|
131
|
20 |
413 |
if _is_ancient($pv)
|
|
137
|
20 |
628 |
if _is_ancient($pv)
|
|
138
|
430 |
198 |
if _is_dev($pv)
|
|
139
|
170 |
28 |
if $pv->numify >= "5.008009"
|
|
145
|
10 |
314 |
if _is_ancient($pv)
|
|
146
|
215 |
99 |
if _is_dev($pv)
|
|
147
|
84 |
15 |
if $pv->numify >= "5.01"
|
|
154
|
70 |
3340 |
if $numify < "5.006"
|
|
161
|
10 |
437 |
if $nv == "5.034002" or $nv == "5.036002" or $nv == "5.038001"
|
|
169
|
0 |
886 |
if $numify < "5.006"
|
|
177
|
2 |
0 |
if eval {
|
|
180
|
1 |
1 |
$numify < 5.006 ? :
|
|
187
|
2 |
0 |
if eval {
|
|
188
|
0 |
2 |
unless $perl
|
|
194
|
2 |
0 |
if eval {
|
|
195
|
0 |
2 |
unless $perl
|