| 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 |