| line |
true |
false |
branch |
|
117
|
534 |
22 |
if ref $coo |
|
120
|
0 |
22 |
unless (defined $coo) |
|
126
|
0 |
22 |
unless ($inst_method) |
|
136
|
1 |
9 |
unless exists $_sysconf{$key} |
|
144
|
1 |
4 |
unless exists $_perlconf{$key} |
|
157
|
0 |
22 |
unless defined $self->platform |
|
158
|
1 |
21 |
unless exists $_platconf{$key}{$self->platform} |
|
174
|
0 |
2 |
unless ($class->isa("Sys::OsPackage")) |
|
175
|
0 |
0 |
ref $class ? : |
|
180
|
2 |
0 |
if (scalar @params > 0) |
|
181
|
0 |
2 |
if (ref $params[0] eq 'HASH') { } |
|
192
|
0 |
2 |
if (exists $obj_ref->{'_config'}{'debug'}) { } |
|
|
0 |
2 |
elsif (exists $ENV{'SYS_OSPACKAGE_DEBUG'}) { } |
|
197
|
0 |
2 |
if (deftrue($obj_ref->{'debug'})) |
|
213
|
8 |
19 |
defined $value && $value ? : |
|
226
|
0 |
24 |
if (defined $value) |
|
268
|
5 |
5 |
if ($self->sudo and not $self->is_root) |
|
281
|
45 |
246 |
if (defined $value) |
|
312
|
0 |
0 |
if not defined $override or ref $override ne "HASH" |
|
323
|
0 |
0 |
if not defined $perl_skip or ref $perl_skip ne "HASH" |
|
324
|
0 |
0 |
deftrue($perl_skip->{$module}) ? : |
|
335
|
0 |
0 |
if (defined $plat_prereq and ref $plat_prereq eq "ARRAY") |
|
354
|
0 |
0 |
if (-f $filepath) |
|
362
|
0 |
0 |
if (defined $value) |
|
363
|
0 |
0 |
if ($found and $value) |
|
379
|
0 |
7 |
if $self->debug |
|
383
|
0 |
7 |
if (ref $cmd[0] eq "HASH") |
|
394
|
0 |
7 |
unless CORE::open my $fh, "-|", $cmd |
|
400
|
0 |
7 |
unless (CORE::close $fh) |
|
401
|
0 |
0 |
if (deftrue($args{'carp_errors'})) |
|
408
|
0 |
7 |
if ($? != 0) |
|
410
|
0 |
0 |
if (deftrue($args{'carp_errors'})) |
|
417
|
0 |
7 |
if (deftrue($args{'list'})) |
|
421
|
6 |
1 |
wantarray ? : |
|
431
|
0 |
0 |
if $self->debug |
|
442
|
2 |
30 |
unless (defined $self->sysenv("path_list") and defined $self->sysenv("path_flag")) |
|
447
|
2 |
10 |
unless -d $dir |
|
448
|
0 |
10 |
unless (exists $path_flag->{$dir}) |
|
458
|
14 |
232 |
if (-x $filepath) |
|
476
|
0 |
0 |
if $self->debug |
|
477
|
0 |
0 |
if ($dir eq ".") |
|
482
|
0 |
0 |
if (not exists $path_seen{$dir} and -d $dir) |
|
484
|
0 |
0 |
if $self->debug |
|
495
|
0 |
0 |
unless (exists $hints_seen_ref->{$item}) |
|
508
|
0 |
0 |
unless (defined $self->sysenv("perlbase")) |
|
513
|
0 |
0 |
if (-d "$dirpath/$perlname" and -w "$dirpath/$perlname") |
|
529
|
0 |
0 |
defined $need_path ? : |
|
530
|
0 |
0 |
unless (-d $need_path) |
|
532
|
0 |
0 |
unless CORE::mkdir $need_path, 493 |
|
546
|
0 |
0 |
if ($self->sysenv("os") eq "MSWin32" or $self->sysenv("os") eq "Win32") |
|
551
|
0 |
0 |
unless (defined $self->sysenv("perlbase")) |
|
553
|
0 |
0 |
if (build_path($self->sysenv("home"), ".local", "perl")) |
|
571
|
0 |
0 |
if (exists $ENV{'PERL_LOCAL_LIB_ROOT'}) |
|
573
|
0 |
0 |
if ($item =~ qr"^$home/"x) |
|
579
|
0 |
0 |
if (exists $ENV{'PERL5LIB'}) |
|
581
|
0 |
0 |
if ($item =~ qr"^$home/"x) |
|
588
|
0 |
0 |
if (exists $ENV{'PATH'}) |
|
590
|
0 |
0 |
if ($item =~ qr"^$home/"x and $item =~ qr"/perl[5]?/"x) |
|
598
|
0 |
0 |
if (-d $dirpath and -w $dirpath) |
|
620
|
0 |
0 |
if (exists $ENV{'HOME'}) |
|
633
|
0 |
0 |
if (exists $ENV{'PATH'}) { } |
|
644
|
0 |
0 |
if (exists $ENV{'PERL5LIB'}) { } |
|
651
|
0 |
0 |
if (exists $ENV{'PERL_LOCAL_LIB_ROOT'}) { } |
|
663
|
0 |
0 |
if (exists $ENV{'MANPATH'}) { } |
|
671
|
0 |
0 |
unless ($self->quiet) |
|
691
|
2 |
0 |
if (defined $uname) { } |
|
708
|
2 |
0 |
if (defined $plat_packager) |
|
714
|
2 |
0 |
if (defined $osrelease->osrelease_path) { } |
|
715
|
0 |
2 |
if ($self->platform eq $osrelease->id) { } |
|
720
|
2 |
0 |
if (defined $self->sysenv("packager")) |
|
727
|
0 |
2 |
unless ($self->quiet) |
|
742
|
14 |
18 |
if (my $filepath = $self->cmd_path($cmd)) |
|
752
|
2 |
0 |
if ($> == 0) { } |
|
757
|
0 |
2 |
if (exists $sysenv->{'apk'}) |
|
766
|
0 |
2 |
if ($self->debug) |
|
769
|
0 |
0 |
if (ref $sysenv->{$key} eq 'ARRAY') { } |
|
772
|
0 |
0 |
exists $sysenv->{$key} ? : |
|
785
|
0 |
0 |
if $self->debug |
|
790
|
0 |
0 |
if ($? == -1) { } |
|
|
0 |
0 |
elsif ($? & 127) { } |
|
794
|
0 |
0 |
$? & 128 ? : |
|
799
|
0 |
0 |
if ($retval != 0) |
|
833
|
0 |
15 |
unless (exists $args{'op'}) |
|
838
|
0 |
15 |
if ($args{'op'} eq "implemented") |
|
839
|
0 |
0 |
if ($self->sysenv('os') eq 'Linux') { } |
|
840
|
0 |
0 |
unless (defined $self->platform) |
|
844
|
0 |
0 |
unless (defined $self->packager) |
|
856
|
0 |
15 |
if (exists $args{'pkg'} and $self->pkg_override($args{'pkg'})) |
|
861
|
0 |
15 |
if (exists $args{'module'}) |
|
867
|
0 |
15 |
unless (eval "require " . $self->packager) |
|
872
|
0 |
15 |
if $self->debug |
|
874
|
0 |
15 |
unless (defined $funcref) |
|
876
|
0 |
0 |
if $self->debug |
|
890
|
0 |
0 |
unless $self->module_installed("Term::ANSIColor") |
|
901
|
0 |
0 |
unless $self->module_installed("Term::ANSIColor") |
|
913
|
0 |
0 |
unless ($self->is_root or $self->sudo) |
|
917
|
0 |
0 |
unless ($self->call_pkg_driver("op", "implemented")) |
|
923
|
0 |
0 |
if not defined $pkgname or length $pkgname == 0 |
|
924
|
0 |
0 |
unless ($self->quiet) |
|
939
|
0 |
0 |
if not defined $pkgname or length $pkgname == 0 |
|
949
|
0 |
0 |
if $self->debug |
|
953
|
0 |
0 |
if ($result) { } |
|
954
|
0 |
0 |
if $self->debug |
|
957
|
0 |
0 |
unless ($self->quiet) |
|
963
|
0 |
0 |
if ($self->is_root or $self->sudo) |
|
964
|
0 |
0 |
if ($self->module_package($name)) |
|
970
|
0 |
0 |
unless ($result) |
|
972
|
0 |
0 |
if (defined $self->sysenv('cpan')) { } |
|
974
|
0 |
0 |
if $self->notest |
|
977
|
0 |
0 |
if $self->notest |
|
979
|
0 |
0 |
unless $self->run_cmd($cmd, @test_param, $name) |
|
984
|
0 |
0 |
if $self->debug |
|
998
|
0 |
0 |
unless (-d "build") |
|
1000
|
0 |
0 |
unless CORE::mkdir "build", 493 |
|
1008
|
0 |
0 |
unless (defined $self->sysenv("$cmd")) |
|
1012
|
0 |
0 |
if (scalar @missing > 0) |
|
1019
|
0 |
0 |
unless $self->run_cmd($self->sysenv("curl"), "-L", "--output", "app-cpanminus.tar.gz", $perl_sources->{'App::cpanminus'}) |
|
1028
|
0 |
0 |
unless CORE::chmod 0755, $cpanm_path |
|
1045
|
0 |
0 |
if ($self->is_root) |
|
1052
|
0 |
0 |
if (my $filepath = $self->cmd_path($dep)) |
|
1059
|
0 |
0 |
unless (defined $self->sysenv("cpan") or defined $self->sysenv("cpanm")) |
|
1061
|
0 |
0 |
if ($self->is_root) |
|
1062
|
0 |
0 |
if ($self->module_package("App::cpanminus")) |
|
1068
|
0 |
0 |
unless (defined $self->sysenv("cpanm")) |
|
1074
|
0 |
0 |
unless (defined $self->sysenv("cpan")) |
|
1076
|
0 |
0 |
if ($self->is_root) |
|
1077
|
0 |
0 |
if ($self->module_package("CPAN")) |
|
1083
|
0 |
0 |
unless (defined $self->sysenv("cpan")) |
|
1084
|
0 |
0 |
if ($self->run_cmd($self->sysenv("perl"), $self->sysenv("cpanm"), "CPAN")) |