Branch Coverage

blib/lib/Module/Release.pm
Criterion Covered Total %
branch 107 140 76.4


line true false branch
191 0 36 -e '.releaserc' ? :
229 0 18 if (-e 'Build.PL')
248 1 18 unless -e $conf_file
251 0 18 unless ref $config
260 0 18 $self->config->cpan_user eq '' ? :
273 0 72 if $self->config->exists($config)
282 0 0 unless (length $self->config->$_)
287 0 18 unless $ok
289 0 18 if ($self->config->perls)
307 0 0 unless (eval { do { $subclass->can('new') } })
315 0 0 unless eval { do { $subclass->can('new') } }
320 0 0 if &blessed($new_self)
342 1 2 if $self->mixin_loaded($module)
346 1 1 if $@
392 10 30 if @_ > 1
405 2 51 if @_ > 1
435 1 19 unless (my $version = $self->_looks_like_perl($path))
451 0 42 if $path =~ /\bperl.exe\z/u
455 39 3 $version =~ /^\d+\.[\d_]+$/u ? :
488 0 0 unless $Module::Release::a->[2] <=> $Module::Release::b->[2] or $Module::Release::a->[3] <=> $Module::Release::b->[3]
515 1 21 if exists $self->{'perls'}{$path}
517 1 20 unless (-x $path)
518 0 1 if ($path =~ /[*?[]/u and $self->config->allow_glob_in_perls) { }
529 1 19 unless ($version)
591 22 72 $_[0]->quiet ? :
650 15 92 if ($_[0]->debug) { }
652 3 12 unless $_[0]{'debug_fh'}
674 2 1 unless (-e $self->{'Makefile'})
694 2 1 unless (-e $self->{'Makefile'})
718 2 7 unless (-e $self->{'Makefile.PL'})
738 2 1 unless (-e $self->{'Makefile'})
759 2 3 unless (-e $self->{'Makefile'})
766 2 1 unless ($tests =~ /All tests successful/u)
767 0 2 if ($self->debug)
773 0 0 if (-x $prove) { }
0 0 elsif ($self->debug) { }
809 4 2 unless ($self->local_file)
815 2 2 unless $self->local_file
823 3 1 unless -f $self->local_file
840 3 3 unless (-e $self->{'Makefile'})
847 2 1 unless $tests =~ /All tests successful/u
877 1 17 unless defined $self->remote_file
880 2 15 unless my($version_str, $vee, $version, $dev) = $self->remote_file =~ / ( (v?) ([\d.]+) (?: _ (\d+) )? ) (?:\. (?: tar \. gz | zip ) )? $/iux
910 9 8 if ($v->{'multipart'}) { }
1 7 elsif ($v->{'count'} == 1) { }
5 2 elsif ($v->{'string'} =~ /(\d+) \. (\d+)(_\d+)? $/ux) { }
918 0 9 unless (eval { do { require version } })
926 0 9 unless eval { do { my $string = $v->{'v_version'}; $v->{'version'} = 'version'->VERSION >= 0.77 ? 'version'->parse($string)->normal : '' . 'version'->new($string); 1 } }
928 9 0 'version'->VERSION >= 0.77 ? :
983 0 0 if $self->{'module_name'}
1029 2 2 unless @$list
1054 1 1 if $count
1095 0 1 if ($message =~ /Debug: (.*)/u) { }
1161 1 10 unless (-f $file)
1166 0 10 unless open my $fh, '>>', $file
1173 3 7 unless (2 == grep({$_ == $time;} (stat $file)[8, 9]))
1219 1 2 if (my $pass = $_[0]->config->cpan_user && $_[0]->get_env_var('CPAN_PASS'))
1234 1 2 unless open my $fh, '<:encoding(UTF-8)', 'Changes'
1239 2 2 if /^\S/u
1257 1 1 unless $self->can('get_recent_contributors')
1259 1 0 if @contributors
1298 2 3 unless defined $command
1300 1 2 unless open my $fh, '-|', "$command"
1307 0 2 $self->debug ? :
1317 1 1 unless (close $fh)
1335 1 5 if defined $$self{lc $field}
1339 2 3 if defined $pass and length $pass
1342 1 2 if ($field eq 'CPAN_PASS') { }
1355 2 1 if defined $pass and length $pass
1423 8 3 unless $_[0]->quiet