| line |
true |
false |
branch |
|
23
|
1 |
0 |
if $fetch->isa('App::SmokeBrew::Tools')
|
|
24
|
0 |
1 |
unless $fetch
|
|
28
|
0 |
0 |
unless $mirrors and ref $mirrors eq 'ARRAY' and scalar @{$mirrors;}
|
|
32
|
0 |
1 |
$mirror->isa('URI') ? :
|
|
36
|
1 |
0 |
if $stat
|
|
43
|
1 |
0 |
if $file->isa('App::SmokeBrew::Tools')
|
|
44
|
0 |
1 |
unless $file
|
|
49
|
0 |
1 |
unless $ae
|
|
50
|
0 |
1 |
unless $ae->extract('to', $loc)
|
|
57
|
1 |
0 |
if exists $ENV{'PERL5_SMOKEBREW_DIR'} and defined $ENV{'PERL5_SMOKEBREW_DIR'}
|
|
62
|
0 |
0 |
unless exists $ENV{$env}
|
|
63
|
0 |
0 |
unless defined $ENV{$env} and length $ENV{$env}
|
|
64
|
0 |
0 |
if -d $ENV{$env}
|
|
72
|
7 |
1 |
if $type->isa('App::SmokeBrew::Tools')
|
|
73
|
1 |
7 |
if ($type and $type eq 'latest')
|
|
77
|
10 |
27 |
unless (exists $perls{$vers})
|
|
81
|
27 |
0 |
if $pv > $perls{$vers}
|
|
87
|
2 |
5 |
unless ($type and $type =~ /^(rel|dev|recent|modern)$/i)
|
|
88
|
1 |
1 |
if $type
|
|
94
|
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) { }
|
|
95
|
60 |
124 |
if _is_rel($_)
|
|
98
|
114 |
70 |
if _is_dev($_)
|
|
110
|
70 |
114 |
unless _is_dev($_)
|
|
114
|
1218 |
70 |
$_ >= 5.006 ? :
|
|
120
|
1 |
1 |
if $pv->numify >= 5.021004
|
|
126
|
20 |
872 |
if _is_ancient($pv)
|
|
132
|
20 |
234 |
if _is_ancient($pv)
|
|
138
|
20 |
348 |
if _is_ancient($pv)
|
|
139
|
228 |
120 |
if _is_dev($pv)
|
|
140
|
92 |
28 |
if $pv->numify >= 5.008009
|
|
146
|
10 |
174 |
if _is_ancient($pv)
|
|
147
|
114 |
60 |
if _is_dev($pv)
|
|
148
|
45 |
15 |
if $pv->numify >= 5.01
|
|
155
|
70 |
1862 |
if $numify < 5.006
|
|
163
|
0 |
496 |
if $numify < 5.006
|
|
171
|
2 |
0 |
if eval {
do {
$vers->isa('App::SmokeBrew::Tools')
}
}
|
|
174
|
1 |
1 |
$numify < 5.006 ? :
|
|
181
|
2 |
0 |
if eval {
do {
$perl->isa('App::SmokeBrew::Tools')
}
}
|
|
182
|
0 |
2 |
unless $perl
|
|
188
|
2 |
0 |
if eval {
do {
$perl->isa('App::SmokeBrew::Tools')
}
}
|
|
189
|
0 |
2 |
unless $perl
|