| line |
true |
false |
branch |
|
205
|
0 |
36 |
-e '.releaserc' ? : |
|
243
|
0 |
18 |
if (-e "Build.PL") |
|
262
|
1 |
18 |
unless -e $conf_file |
|
265
|
0 |
18 |
unless ref $config |
|
274
|
0 |
18 |
$self->config->cpan_user eq '' ? : |
|
287
|
0 |
72 |
if $self->config->exists($config) |
|
296
|
0 |
0 |
unless (length $self->config->$_) |
|
301
|
0 |
18 |
unless $ok |
|
303
|
0 |
18 |
if ($self->config->perls) |
|
321
|
0 |
0 |
unless (eval {
do {
$subclass->can("new")
}
}) |
|
329
|
0 |
0 |
unless eval {
do {
$subclass->can("new")
}
} |
|
334
|
0 |
0 |
if builtin::blessed($new_self) |
|
356
|
1 |
2 |
if $self->mixin_loaded($module) |
|
360
|
1 |
1 |
if $@ |
|
406
|
10 |
30 |
if @_ > 1 |
|
419
|
2 |
51 |
if @_ > 1 |
|
449
|
1 |
19 |
unless (my $version = $self->_looks_like_perl($path)) |
|
465
|
0 |
42 |
if $path =~ /\bperl.exe\z/u |
|
469
|
39 |
3 |
$version =~ /^\d+\.[\d_]+$/u ? : |
|
502
|
0 |
0 |
unless $Module::Release::a->[2] <=> $Module::Release::b->[2] or $Module::Release::a->[3] <=> $Module::Release::b->[3] |
|
529
|
1 |
21 |
if exists $self->{'perls'}{$path} |
|
531
|
1 |
20 |
unless (-x $path) |
|
532
|
0 |
1 |
if ($path =~ /[*?[]/u and $self->config->allow_glob_in_perls) { } |
|
543
|
1 |
19 |
unless ($version) |
|
605
|
22 |
72 |
if ($_[0]->quiet) { } |
|
664
|
18 |
92 |
if ($_[0]->debug) { } |
|
666
|
3 |
15 |
unless $_[0]{'debug_fh'} |
|
688
|
2 |
1 |
unless (-e $self->{'Makefile'}) |
|
708
|
2 |
1 |
unless (-e $self->{'Makefile'}) |
|
732
|
2 |
7 |
unless (-e $self->{'Makefile.PL'}) |
|
752
|
2 |
1 |
unless (-e $self->{'Makefile'}) |
|
773
|
2 |
3 |
unless (-e $self->{'Makefile'}) |
|
780
|
2 |
1 |
unless ($tests =~ /All tests successful/u) |
|
781
|
0 |
2 |
if ($self->debug) |
|
787
|
0 |
0 |
if (-x $prove) { } |
|
|
0 |
0 |
elsif ($self->debug) { } |
|
823
|
4 |
2 |
unless ($self->local_file) |
|
829
|
2 |
2 |
unless $self->local_file |
|
837
|
3 |
1 |
unless -f $self->local_file |
|
854
|
3 |
3 |
unless (-e $self->{'Makefile'}) |
|
861
|
2 |
1 |
unless $tests =~ /All tests successful/u |
|
891
|
1 |
17 |
unless defined $self->remote_file |
|
894
|
2 |
15 |
unless my($version_str, $vee, $version, $dev) = $self->remote_file =~ / ( (v?) ([\d.]+) (?: _ (\d+) )? ) (?:\. (?: tar \. gz | zip ) )? $/iux |
|
924
|
9 |
8 |
if ($v->{'multipart'}) { } |
|
|
1 |
7 |
elsif ($v->{'count'} == 1) { } |
|
|
5 |
2 |
elsif ($v->{'string'} =~ /(\d+) \. (\d+)(_\d+)? $/ux) { } |
|
932
|
0 |
9 |
unless (eval {
do {
require version
}
}) |
|
940
|
0 |
9 |
unless eval {
do {
my $string = $v->{'v_version'};
$v->{'version'} = "version"->VERSION >= "0.77" ? "version"->parse($string)->normal : '' . "version"->new($string);
1
}
} |
|
942
|
9 |
0 |
'version'->VERSION >= 0.77 ? : |
|
997
|
0 |
0 |
if $self->{'module_name'} |
|
1043
|
2 |
2 |
unless @$list |
|
1068
|
1 |
1 |
if $count |
|
1109
|
0 |
1 |
if ($message =~ /Debug: (.*)/u) { } |
|
1175
|
1 |
10 |
unless (-f $file) |
|
1180
|
0 |
10 |
unless open my $fh, ">>", $file |
|
1187
|
3 |
7 |
unless (2 == grep({$_ == $time;} (stat $file)[8, 9])) |
|
1234
|
2 |
2 |
unless (defined $id) |
|
1240
|
1 |
1 |
if (exists $ENV{$per_user_env_key} and length $ENV{$per_user_env_key}) { } |
|
|
1 |
0 |
elsif (my $pass = $_[0]->config->cpan_user && $_[0]->get_env_var('CPAN_PASS')) { } |
|
1260
|
1 |
2 |
unless open my $fh, "<:encoding(UTF-8)", "Changes" |
|
1265
|
2 |
2 |
if /^\S/u |
|
1283
|
1 |
1 |
unless $self->can("get_recent_contributors") |
|
1285
|
1 |
0 |
if @contributors |
|
1325
|
2 |
3 |
unless @command |
|
1343
|
0 |
2 |
$self->debug ? : |
|
1355
|
0 |
2 |
if ($error =~ /exec of .*? failed| Windows/ux) |
|
1363
|
0 |
2 |
if length $error |
|
1365
|
1 |
1 |
if ($child_exit_status) |
|
1383
|
1 |
5 |
if defined $$self{lc $field} |
|
1387
|
2 |
3 |
if defined $pass and length $pass |
|
1388
|
0 |
3 |
if $field =~ /\ACPAN_PASS_/u |
|
1391
|
1 |
2 |
if ($field eq 'CPAN_PASS') { } |
|
1404
|
2 |
1 |
if defined $pass and length $pass |
|
1472
|
8 |
3 |
unless $_[0]->quiet |