| lib/App/perlbrew.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 99 | 228 | 43.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 485 | 0 | 0 | 2 | $status and not defined $verbose |
| 609 | 580 | 44 | 4 | $1 && $1 eq 'cperl' |
| 619 | 0 | 0 | 0 | $1 && $1 eq 'cperl' |
| 620 | 0 | 0 | 0 | $2 && $2 eq 'blead' |
| 813 | 0 | 0 | 1 | $json and $result = decode_json($json)->{'hits'}{'hits'}[0] |
| 890 | 0 | 0 | 0 | $json and $result = decode_json($json)->{'hits'}{'hits'}[0] |
| 957 | 0 | 4 | 1 | $dist_version and not $dist_type |
| 984 | 5 | 0 | 0 | @args and $args[0] eq "-" |
| 1016 | 0 | 0 | 28 | -w $path and open $fh, ">", $path |
| 1176 | 1 | 0 | 2 | not $dist_version and $dist =~ /blead\.tar.gz$/ |
| 1238 | 0 | 0 | 1 | defined $extracted_dir and -d $extracted_dir |
| 1280 | 0 | 0 | 1 | $dist_type and $dist_version =~ /^\d\./ |
| 1322 | 0 | 44 | 2 | not $self->{'force'} and $self->is_installed($installation_name) |
| 1326 | 1 | 40 | 3 | $dist_type eq "perl" and $dist_version eq "blead" |
| 1424 | 0 | 0 | 0 | $self->{'as'} and @dists > 1 |
| 1461 | 0 | 1 | 0 | $dist and $dist eq "stable" |
| 1470 | 1 | 0 | 0 | -f $dist_tarball_path and not $self->{'force'} |
| 1544 | 0 | 0 | 9 | $dist_version and $installation_name |
| 1596 | 0 | 4 | 0 | defined $version and $version < $self->comparable_perl_version("5.6.0") |
| 1621 | 4 | 0 | 0 | -x $patchperl and -f _ |
| 1635 | 0 | 4 | 0 | defined $version && $version < $self->comparable_perl_version('5.8.9') |
| 1655 | 0 | 4 | 0 | $test_target eq "test_harness" and ($self->{'j'} || 1) > 1 |
| 1720 | 8 | 0 | 0 | -f $out and not $self->{'force'} |
| 8 | 0 | 0 | -f $out and not $self->{'force'} and not $self->{'yes'} | |
| 1748 | 2 | 0 | 1 | $body_filter and ref $body_filter eq "CODE" |
| 1813 | 0 | 0 | 32 | defined $orig_version and length $orig_version |
| 1820 | 424 | 2 | 38 | $self->current_perl eq $name && !$self->current_lib |
| 2099 | 0 | 0 | 0 | $alias and $alias =~ /^perl-/ |
| 2104 | 0 | 0 | 0 | $self->env("PERLBREW_SHELLRC_VERSION") and $self->current_shell_is_bashish |
| 2144 | 1 | 2 | 25 | defined $v and $v ne "" |
| 2420 | 1 | 0 | 0 | $alias and -e $path_alias |
| 1 | 0 | 0 | $alias and -e $path_alias and not -l $path_alias | |
| 2427 | 0 | 0 | 0 | $self->is_installed($alias) and not $self->{'force'} |
| 2450 | 0 | 0 | 0 | -l $path_alias and not $self->{'force'} |
| 2726 | 0 | 0 | 4 | $src_perl && $dst_perl |
| line | l | !l | condition |
|---|---|---|---|
| 274 | 34 | 652 | $self->{'current_perl'} || $self->env('PERLBREW_PERL') || '' |
| 280 | 10 | 492 | $self->{'current_lib'} || $self->env('PERLBREW_LIB') || '' |
| 341 | 0 | 5 | $self->env('PERLBREW_CPAN_MIRROR') || 'https://cpan.metacpan.org' |
| 513 | 0 | 0 | $verbose || 0 |
| 845 | 5 | 0 | $rd ||= {} |
| 864 | 0 | 0 | $rd ||= {} |
| 909 | 2 | 0 | $rd ||= {} |
| 936 | 0 | 0 | $rd ||= {} |
| 941 | 0 | 0 | eval { do { http_get('https://github.com/perl11/cperl/releases/tag/' . $dist) } } || '' |
| 1043 | 1 | 0 | $self->_firstrcfile('.zshenv', '.bash_profile', '.bash_login', '.profile') || '.zshenv' |
| 1058 | 3 | 0 | $self->_firstrcfile('.bash_profile', '.bash_login', '.profile') || '.bash_profile' |
| 1318 | 45 | 1 | $dist_type ||= "perl" |
| 1628 | 0 | 4 | $self->env('PERLBREW_CONFIGURE_FLAGS') || '-de' |
| 1655 | 0 | 4 | $self->{'j'} || 1 |
| 1734 | 0 | 3 | $self->env('TMPDIR') || '/tmp' |
| 1787 | 467 | 1 | substr($version, 5) || 0 |
| 1918 | 0 | 31 | $self->env('PERL_LOCAL_LIB_ROOT') || '' |
| 2229 | 0 | 0 | $ENV{'TMPDIR'} || '/tmp' |
| 2361 | 0 | 28 | $ENV{'MANPATH'} || '' |
| 2362 | 28 | 0 | $env{'PERL5LIB'} || '' |
| 2785 | 16 | 0 | $self->env($_) || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 233 | 2 | 12 | 0 | $PERLBREW_ROOT || $ENV{'PERLBREW_ROOT'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, 'perl5', 'perlbrew')->stringify |
| 0 | 213 | 0 | $new_root ||= $PERLBREW_ROOT || $ENV{'PERLBREW_ROOT'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, 'perl5', 'perlbrew')->stringify | |
| 254 | 2 | 13 | 0 | $PERLBREW_HOME || $ENV{'PERLBREW_HOME'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, '.perlbrew')->stringify |
| 0 | 216 | 0 | $new_home ||= $PERLBREW_HOME || $ENV{'PERLBREW_HOME'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, '.perlbrew')->stringify | |
| 268 | 1 | 3 | 0 | $self->{'builddir'} || $self->root->build |
| 285 | 1 | 1 | 2 | $self->current_shell eq 'bash' || $self->current_shell eq 'zsh' |
| 291 | 20 | 2 | 0 | $self->{'current_shell'} ||= do { my $shell_name = "App::Perlbrew::Path"->new($self->{'shell'} || $self->env('SHELL'))->basename; $shell_name =~ s/\d+$//; $shell_name } |
| 292 | 0 | 2 | 0 | $self->{'shell'} || $self->env('SHELL') |
| 372 | 0 | 0 | 142 | $self->{'force'} or $self->{'yes'} |
| 391 | 0 | 400 | 2 | ref $glob eq "CODE" or defined *$glob{"CODE"} |
| 819 | 1 | 0 | 0 | $dist_path or $dist_tarball |
| 896 | 0 | 0 | 0 | $dist_path or $dist_tarball |
| 1263 | 2 | 1 | 6 | not defined $latest_minor or $latest_minor < $minor |
| 1321 | 4 | 42 | 0 | $self->{'as'} || $dist |
| 1618 | 0 | 0 | 4 | $self->{'no-patchperl'} or $looks_like_we_are_installing_cperl |
| 1642 | 0 | 4 | 0 | $ENV{'MAKE'} || ($^O eq 'solaris' ? 'gmake' : 'make') |
| 1649 | 0 | 0 | 0 | $dist_version =~ /^5\.(\d+)\.(\d+)/ && ($1 >= 8 || $1 == 7 && $2 == 3) || $dist_version eq 'blead' |
| 1839 | 0 | 0 | 0 | $App::perlbrew::a->{'comparable_version'} <=> $App::perlbrew::b->{'comparable_version'} || $App::perlbrew::b->{'name'} cmp $App::perlbrew::a->{'name'} |
| 402 | 0 | 0 | $App::perlbrew::b->{'comparable_version'} <=> $App::perlbrew::a->{'comparable_version'} || $App::perlbrew::a->{'name'} cmp $App::perlbrew::b->{'name'} | |
| 1904 | 29 | 2 | 0 | not $lib_name or grep {$_->{'lib_name'} eq $lib_name;} $self->local_libs($perl_name) |
| 2364 | 9 | 0 | 19 | $no_header or $self->{'quiet'} |
| 2385 | 1 | 6 | 18 | $self->{'quiet'} or $no_header |
| 2630 | 0 | 1 | 0 | $env ||= $self->current_env |
| 2672 | 71 | 7 | 0 | $perl_name ||= $self->current_perl |
| 2719 | 4 | 0 | 0 | pop() || $self->current_env |
| 2720 | 2 | 2 | 0 | pop() || $self->current_env |
| 2726 | 0 | 0 | 4 | not $src_perl && $dst_perl or $src_perl eq $dst_perl |