| line |
true |
false |
branch |
|
94
|
216 |
6236 |
if @_ > 1
|
|
159
|
0 |
64 |
if $self->_dslip ne " "
|
|
164
|
0 |
313 |
if $mod->_dslip ne " "
|
|
326
|
0 |
457 |
unless my $object = check($tmpl, \%hash)
|
|
336
|
959 |
125 |
if $self->_status
|
|
432
|
312 |
4 |
if @res
|
|
442
|
4 |
27 |
if $self->package_name eq "perl"
|
|
450
|
0 |
27 |
if (defined $core)
|
|
452
|
0 |
0 |
if $cb->_vcmp($self->version, $self->installed_version) > 0
|
|
456
|
0 |
0 |
if $cb->_vcmp($self->version, $core) >= 0
|
|
474
|
29 |
3 |
ref $self ? :
|
|
486
|
4 |
28 |
if (exists $Module::CoreList::version{0 + $ver}{$name})
|
|
488
|
0 |
4 |
unless $core
|
|
498
|
2 |
20 |
if $self->module =~ /^bundle(?:-|::)/i
|
|
501
|
4 |
16 |
if $self->is_autobundle
|
|
513
|
10 |
50 |
if $self->module eq $prefix
|
|
520
|
44 |
0 |
unless can_load("modules", {"Module::ThirdParty", 0})
|
|
528
|
0 |
0 |
unless $self->is_third_party
|
|
577
|
2 |
52 |
if $self->status->_fetch_from
|
|
580
|
0 |
54 |
unless my $where = $cb->_fetch(@_, %args)
|
|
583
|
16 |
36 |
if (not $self->status->_fetch_from and $cb->configure_object->get_conf("md5") and $self->package ne "CHECKSUMS")
|
|
587
|
0 |
16 |
unless ($self->_validate_checksum)
|
|
611
|
1 |
16 |
unless ($self->status->fetch)
|
|
618
|
1 |
15 |
if ($self->is_autobundle)
|
|
655
|
0 |
20 |
unless check($tmpl, \%hash)
|
|
660
|
2 |
18 |
if ($self->is_autobundle) { }
|
|
665
|
0 |
18 |
unless ($extract)
|
|
677
|
1 |
17 |
if not $prefer_makefile and $found_build
|
|
678
|
1 |
17 |
if $found_build and not $found_makefile
|
|
679
|
16 |
2 |
if $prefer_makefile and $found_makefile
|
|
680
|
16 |
2 |
if $found_makefile and not $found_build
|
|
682
|
0 |
18 |
if $self->package =~ /^Module-Build-\d/
|
|
688
|
1 |
19 |
if ($type and $type eq 'CPANPLUS::Dist::Build' and not 'CPANPLUS::Dist'->has_dist_type('CPANPLUS::Dist::Build') && $cb->module_tree('CPANPLUS::Dist::Build')->is_uptodate('version', '0.60')) { }
|
|
|
1 |
18 |
elsif (not $type) { }
|
|
718
|
20 |
0 |
if $type
|
|
746
|
0 |
19 |
unless $self->status->installer_type
|
|
757
|
0 |
19 |
unless check($tmpl, \%hash)
|
|
760
|
1 |
18 |
unless ("CPANPLUS::Dist"->has_dist_type($type))
|
|
765
|
1 |
0 |
if ($type eq 'CPANPLUS::Dist::Build') { }
|
|
772
|
0 |
1 |
unless ($cb->module_tree($type)->install("target", $target, %$args))
|
|
781
|
1 |
0 |
if ('CPANPLUS::Dist'->has_dist_type($type)) { }
|
|
802
|
14 |
5 |
unless ($dist = $self->status->dist)
|
|
803
|
0 |
13 |
unless $dist = $type->new("module", $self)
|
|
807
|
13 |
5 |
unless ($dist_cpan = $self->status->dist_cpan)
|
|
809
|
5 |
8 |
$type eq $self->status->installer_type ? :
|
|
820
|
1 |
17 |
if $target eq "init"
|
|
823
|
1 |
16 |
unless $dist->prepare(%$args)
|
|
827
|
2 |
14 |
if $target eq "prepare"
|
|
829
|
1 |
13 |
unless $dist->create(%$args)
|
|
925
|
0 |
17 |
unless $args = check($tmpl, \%hash)
|
|
933
|
9 |
8 |
if $target ne "install"
|
|
936
|
0 |
0 |
if ($target eq "install" and not $args->{'force'} and not $self->package_is_perl_core and $self->status->installed || $self->is_uptodate and not sub { ;}->($format))
|
|
947
|
1 |
16 |
if ($self->package_is_perl_core) { }
|
|
|
0 |
16 |
elsif ($self->is_third_party) { }
|
|
949
|
1 |
0 |
if ($self->installed_version > $self->version) { }
|
|
|
0 |
0 |
elsif ($self->installed_version == $self->version) { }
|
|
989
|
9 |
7 |
unless ($self->status->fetch)
|
|
992
|
0 |
18 |
if exists $args->{$_}
|
|
995
|
18 |
0 |
if defined $args->{$_}
|
|
997
|
0 |
9 |
unless $self->fetch(%$params)
|
|
1001
|
10 |
6 |
unless ($self->status->extract)
|
|
1004
|
0 |
20 |
if exists $args->{$_}
|
|
1007
|
20 |
0 |
if defined $args->{$_}
|
|
1009
|
0 |
10 |
unless $self->extract(%$params)
|
|
1012
|
8 |
8 |
if $format
|
|
1015
|
0 |
16 |
unless ($format)
|
|
1028
|
0 |
16 |
if ($conf->get_conf("signature"))
|
|
1029
|
0 |
0 |
if ($self->check_signature('verbose', $args->{'verbose'})) { }
|
|
1036
|
0 |
0 |
if ($conf->get_conf("cpantest"))
|
|
1043
|
0 |
0 |
unless $cb->_send_report("module", $self, "failed", 1, "buffer", "CPANPLUS::Error"->stack_as_string, "verbose", $args->{'verbose'}, "force", $args->{'force'})
|
|
1060
|
1 |
15 |
if ($self->is_bundle)
|
|
1063
|
0 |
1 |
unless (@prereqs)
|
|
1074
|
2 |
13 |
unless ($dist)
|
|
1080
|
8 |
5 |
if $target ne "install"
|
|
1082
|
4 |
1 |
$dist->install(%$args) ? :
|
|
1086
|
4 |
1 |
if $ok
|
|
1107
|
0 |
3 |
unless ($self->is_bundle)
|
|
1116
|
2 |
1 |
if ($self->is_autobundle) { }
|
|
1118
|
0 |
2 |
unless ($where = $self->status->fetch)
|
|
1128
|
0 |
1 |
unless ($dir = $self->status->extract)
|
|
1134
|
1 |
7 |
if /\.pm/i
|
|
1141
|
0 |
3 |
unless my $fh = "FileHandle"->new($file)
|
|
1148
|
1 |
62 |
if $flag and /^=head/i
|
|
1154
|
3 |
59 |
if /^=head1 CONTENTS/i
|
|
1156
|
7 |
55 |
if ($flag and /^(?!=)(\S+)\s*(\S+)?/)
|
|
1162
|
0 |
7 |
unless ($obj)
|
|
1169
|
7 |
0 |
unless ($$seen{$obj->module}++)
|
|
1199
|
1 |
2 |
if $self->status->readme
|
|
1202
|
0 |
2 |
unless can_load("modules", {"FileHandle", "0.0"}, "verbose", 1)
|
|
1207
|
0 |
2 |
unless my $obj = $self->clone
|
|
1223
|
0 |
2 |
unless $file
|
|
1228
|
0 |
2 |
unless ($fh->open($file))
|
|
1298
|
0 |
39 |
if defined $href->{'dir'} and ref $href->{'dir'}
|
|
1345
|
0 |
0 |
if $self->installed_version
|
|
1347
|
0 |
0 |
if $self->installed_file
|
|
1438
|
0 |
0 |
unless my $args = check($tmpl, \%hash)
|
|
1440
|
0 |
0 |
if ($conf->get_conf("dist_type") and $conf->get_conf('dist_type') ne 'CPANPLUS::Dist::Build' || $conf->get_conf('dist_type') ne 'CPANPLUS::Dist::MM')
|
|
1451
|
0 |
0 |
unless ($self->installed_version)
|
|
1458
|
0 |
0 |
unless my $files = $self->files("type", $type)
|
|
1459
|
0 |
0 |
unless my $dirs = $self->directory_tree("type", $type)
|
|
1464
|
0 |
0 |
if $pack
|
|
1469
|
0 |
0 |
unless defined $file and -f $file
|
|
1474
|
0 |
0 |
if $sudo
|
|
1477
|
0 |
0 |
unless (run("command", \@cmd, "verbose", $verbose, "buffer", \$buffer))
|
|
1488
|
0 |
0 |
unless opendir DIR, $dir
|
|
1492
|
0 |
0 |
unless @count == 2
|
|
1505
|
0 |
0 |
if $sudo
|
|
1508
|
0 |
0 |
unless (run("command", \@cmd, "verbose", $verbose, "buffer", \$buffer))
|
|
1518
|
0 |
0 |
$flag ? :
|
|
1536
|
0 |
1 |
unless my(@list) = $self->author->distributions(%hash, "module", $self)
|
|
1592
|
0 |
0 |
unless my $args = check($tmpl, \%hash)
|
|
1597
|
0 |
0 |
if ($err)
|
|
1600
|
0 |
0 |
unless can_load("modules", {"ExtUtils::Installed", "0.0"}, "verbose", $verbose)
|
|
1656
|
0 |
0 |
unless my $dir = $Config::Config{$href->{$key} . "exp"}
|
|
1674
|
0 |
0 |
unless ($inst = "ExtUtils::Installed"->new("extra_libs", \@libs))
|
|
1686
|
0 |
0 |
if ($@)
|
|
1693
|
0 |
0 |
wantarray ? :
|
|
1716
|
10 |
0 |
if (my $dir = $self->status->extract) { }
|
|
1718
|
0 |
10 |
unless $cb->_add_to_includepath("directories", ["File::Spec"->catdir(sub { ;}->($dir), "lib"), "File::Spec"->catdir(sub { ;}->($dir), "arch"), sub { ;}->($dir)])
|
|
1726
|
0 |
10 |
unless $cb->_add_to_path("directories", ["File::Spec"->catdir(sub { ;}->($dir), "script"), "File::Spec"->catdir(sub { ;}->($dir), "bin")])
|