Branch Coverage

blib/lib/App/SmokeBrew/Tools.pm
Criterion Covered Total %
branch 62 84 73.8


line true false branch
24 1 0 if $fetch->isa('App::SmokeBrew::Tools')
25 0 1 unless $fetch
29 0 0 unless $mirrors and ref $mirrors eq 'ARRAY' and scalar @{$mirrors;}
33 0 1 $mirror->isa('URI') ? :
37 1 0 if $stat
44 1 0 if $file->isa('App::SmokeBrew::Tools')
45 0 1 unless $file
50 0 1 unless $ae
51 0 1 unless $ae->extract('to', $loc)
58 1 0 if exists $ENV{'PERL5_SMOKEBREW_DIR'} and defined $ENV{'PERL5_SMOKEBREW_DIR'}
63 0 0 unless exists $ENV{$env}
64 0 0 unless defined $ENV{$env} and length $ENV{$env}
65 0 0 if -d $ENV{$env}
73 7 1 if $type->isa('App::SmokeBrew::Tools')
74 1 7 if ($type and $type eq 'latest')
78 10 24 unless (exists $perls{$vers})
82 24 0 if $pv > $perls{$vers}
88 2 5 unless ($type and $type =~ /^(rel|dev|recent|modern)$/i)
89 1 1 if $type
95 175 1050 if ($type and $type eq 'rel') { }
175 875 elsif ($type and $type eq 'dev') { }
350 525 elsif ($type and $type eq 'recent') { }
175 350 elsif ($type and $type eq 'modern') { }
175 175 elsif ($type) { }
96 57 118 if _is_rel($_)
99 108 67 if _is_dev($_)
111 67 108 unless _is_dev($_)
115 1155 70 $_ >= 5.006 ? :
121 20 827 if _is_ancient($pv)
127 20 222 if _is_ancient($pv)
133 20 330 if _is_ancient($pv)
134 216 114 if _is_dev($pv)
135 86 28 if $pv->numify >= 5.008009
141 10 165 if _is_ancient($pv)
142 108 57 if _is_dev($pv)
143 42 15 if $pv->numify >= 5.01
150 70 1766 if $numify < 5.006
158 0 469 if $numify < 5.006
166 2 0 if eval { do { $vers->isa('App::SmokeBrew::Tools') } }
169 1 1 $numify < 5.006 ? :
176 2 0 if eval { do { $perl->isa('App::SmokeBrew::Tools') } }
177 0 2 unless $perl