Branch Coverage

lib/CPANPLUS/YACSmoke.pm
Criterion Covered Total %
branch 46 122 37.7


line true false branch
47 0 19 if $TiedObj
55 0 19 unless $TiedObj
63 8 2 if ref $_[0] and $_[0]->isa('CPANPLUS::Configure')
75 0 10 if glob catfile($conf->get_conf('base'), $conf->_get_source('stored') . '*' . '.stored')
82 10 0 unless (defined $ENV{'MAILDOMAIN'})
84 0 10 $hostpart =~ /^(cpan\.org|gmail\.com)$/i ? :
87 10 0 if ($^V gt v5.9.5) { }
92 0 0 unless $@
101 3 7 if (-r $config_file)
105 1 2 if (@list)
112 2 1 if (@list)
133 5 0 if (ref $_[0] and $_[0]->isa('CPANPLUS::YACSmoke'))
142 0 5 unless (@dists)
150 0 5 unless $mod
153 0 5 if $self->_is_excluded_dist($package)
154 0 5 if $mod->is_bundle
155 0 5 unless $grade =~ /$self->{'allow_retries'}/
163 0 5 if ($self->{'local_lib'})
184 0 5 if ($self->{'local_lib'})
187 0 0 if -e $build_dir
191 5 0 unless $self->{'local_lib'}
199 14 0 if (ref $_[0] and $_[0]->isa('CPANPLUS::YACSmoke'))
209 4 10 if ($grade) { }
211 0 4 unless $mod
213 0 4 unless ($grade =~ /(pass|fail|unknown|na|none|ungraded|aborted|ignored)/)
216 0 4 if ($grade eq 'none')
224 10 0 $distver ? :
227 0 10 unless $mod
229 0 10 if $self->_is_excluded_dist($dist_ver)
231 8 2 if ($grade) { }
240 14 0 if $distver
246 2 0 if (ref $_[0] and $_[0]->isa('CPANPLUS::YACSmoke'))
254 0 2 unless (@dists)
262 0 2 unless $mod
265 0 2 unless $self->_is_excluded_dist($package) or $self->_is_excluded_auth($auth)
276 0 0 if (ref $_[0] and $_[0]->isa('CPANPLUS::YACSmoke'))
281 0 0 ref $_[0] eq 'HASH' ? :
288 0 0 if (@_) { }
291 0 0 unless /^(.*)\-(.+)$/
297 0 0 unless /^(.*)\-(.+)$/
307 0 0 if ($passed) { }
0 0 elsif ($self->{'checked'}{"$dist-$vers"} eq 'pass') { }
312 0 0 if ($flush)
315 0 0 if -d $builddir
331 0 0 if (ref $_[0] and $_[0]->isa('CPANPLUS::YACSmoke'))
336 0 0 ref $_[0] eq 'HASH' ? :
343 0 0 if ($param eq 'old') { }
347 0 0 if $dir =~ /^\.+$/
361 0 0 if -e $build_dir
378 0 0 if (ref $_[0] and $_[0]->isa('CPANPLUS::YACSmoke'))
386 0 0 if glob catfile($self->{'conf'}->get_conf('base'), $self->{'conf'}->_get_source('stored') . '*' . '.stored')
393 15 2 unless $self->{'exclude_dists'}
394 1 1 if $dist =~ $self->{'exclude_dists'}->re
400 0 1 unless $self->{'exclude_auths'}
401 1 0 if $auth =~ $self->{'exclude_auths'}->re
430 0 0 if $status
434 0 0 if @$hosts == $h_ind
437 0 0 unless my $fh = 'IO::File'->new($local)
440 0 0 unless /^authors/
441 0 0 unless /\.(?:tar\.(?:bz2|gz|Z)|t(?:gz|bz)|(?
461 0 1 unless $self->{'local_lib'}