| line |
true |
false |
branch |
|
22
|
1 |
0 |
if $fetch->isa("App::SmokeBrew::Tools")
|
|
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("App::SmokeBrew::Tools")
|
|
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("App::SmokeBrew::Tools")
|
|
72
|
1 |
7 |
if ($type and $type eq "latest")
|
|
76
|
10 |
27 |
unless (exists $perls{$vers})
|
|
80
|
27 |
0 |
if $pv > $perls{$vers}
|
|
86
|
2 |
5 |
unless ($type and $type =~ /^(rel|dev|recent|modern)$/i)
|
|
87
|
1 |
1 |
if $type
|
|
93
|
184 |
1104 |
if ($type and $type eq 'rel') { }
|
|
|
184 |
920 |
elsif ($type and $type eq 'dev') { }
|
|
|
368 |
552 |
elsif ($type and $type eq 'recent') { }
|
|
|
184 |
368 |
elsif ($type and $type eq 'modern') { }
|
|
|
184 |
184 |
elsif ($type) { }
|
|
94
|
60 |
124 |
if _is_rel($_)
|
|
97
|
114 |
70 |
if _is_dev($_)
|
|
109
|
70 |
114 |
unless _is_dev($_)
|
|
113
|
1218 |
70 |
$_ >= 5.006 ? :
|
|
119
|
1 |
1 |
if $pv->numify >= "5.021004"
|
|
125
|
20 |
872 |
if _is_ancient($pv)
|
|
131
|
20 |
234 |
if _is_ancient($pv)
|
|
137
|
20 |
348 |
if _is_ancient($pv)
|
|
138
|
228 |
120 |
if _is_dev($pv)
|
|
139
|
92 |
28 |
if $pv->numify >= "5.008009"
|
|
145
|
10 |
174 |
if _is_ancient($pv)
|
|
146
|
114 |
60 |
if _is_dev($pv)
|
|
147
|
45 |
15 |
if $pv->numify >= "5.01"
|
|
154
|
70 |
1862 |
if $numify < "5.006"
|
|
162
|
0 |
496 |
if $numify < "5.006"
|
|
170
|
2 |
0 |
if eval {
|
|
173
|
1 |
1 |
$numify < 5.006 ? :
|
|
180
|
2 |
0 |
if eval {
|
|
181
|
0 |
2 |
unless $perl
|
|
187
|
2 |
0 |
if eval {
|
|
188
|
0 |
2 |
unless $perl
|