| line |
!l |
l&&!r |
l&&r |
condition |
|
486
|
0 |
0 |
2 |
$status and not defined $verbose |
|
610
|
586 |
44 |
0 |
$1 && $1 eq 'cperl' |
|
620
|
0 |
0 |
0 |
$1 && $1 eq 'cperl' |
|
621
|
0 |
0 |
0 |
$2 && $2 eq 'blead' |
|
787
|
0 |
0 |
1 |
$json and $result = decode_json($json)->{'hits'}{'hits'}[0] |
|
846
|
0 |
0 |
0 |
$json and $result = decode_json($json)->{'hits'}{'hits'}[0] |
|
868
|
0 |
3 |
1 |
$dist_version and not $dist_type |
|
881
|
0 |
0 |
4 |
$self->can($m_local) and $self->can($m_remote) |
|
899
|
5 |
0 |
0 |
@args and $args[0] eq "-" |
|
931
|
0 |
0 |
28 |
-w $path and open $fh, ">", $path |
|
1091
|
1 |
0 |
2 |
not $dist_version and $dist =~ /blead\.tar.gz$/ |
|
1153
|
0 |
0 |
1 |
defined $extracted_dir and -d $extracted_dir |
|
1195
|
0 |
0 |
1 |
$dist_type and $dist_version =~ /^\d\./ |
|
1237
|
0 |
45 |
2 |
not $self->{'force'} and $self->is_installed($installation_name) |
|
1241
|
1 |
41 |
3 |
$dist_type eq "perl" and $dist_version eq "blead" |
|
1339
|
0 |
0 |
0 |
$self->{'as'} and @dists > 1 |
|
1376
|
0 |
1 |
0 |
$dist and $dist eq "stable" |
|
1385
|
1 |
0 |
0 |
-f $dist_tarball_path and not $self->{'force'} |
|
1459
|
0 |
0 |
9 |
$dist_version and $installation_name |
|
1511
|
0 |
4 |
0 |
defined $version and $version < $self->comparable_perl_version("5.6.0") |
|
1536
|
4 |
0 |
0 |
-x $patchperl and -f _ |
|
1550
|
0 |
4 |
0 |
defined $version && $version < $self->comparable_perl_version('5.8.9') |
|
1570
|
0 |
4 |
0 |
$test_target eq "test_harness" and ($self->{'j'} || 1) > 1 |
|
1635
|
8 |
0 |
0 |
-f $out and not $self->{'force'} |
|
|
8 |
0 |
0 |
-f $out and not $self->{'force'} and not $self->{'yes'} |
|
1664
|
2 |
0 |
1 |
$body_filter and ref $body_filter eq "CODE" |
|
1729
|
0 |
0 |
33 |
defined $orig_version and length $orig_version |
|
1736
|
426 |
2 |
42 |
$self->current_perl eq $name && !$self->current_lib |
|
2015
|
0 |
0 |
0 |
$alias and $alias =~ /^perl-/ |
|
2020
|
0 |
0 |
0 |
$self->env("PERLBREW_SHELLRC_VERSION") and $self->current_shell_is_bashish |
|
2059
|
3 |
4 |
39 |
defined $v and $v ne "" |
|
2345
|
1 |
0 |
0 |
$alias and -e $path_alias |
|
|
1 |
0 |
0 |
$alias and -e $path_alias and not -l $path_alias |
|
2352
|
0 |
0 |
0 |
$self->is_installed($alias) and not $self->{'force'} |
|
2375
|
0 |
0 |
0 |
-l $path_alias and not $self->{'force'} |
|
2651
|
0 |
0 |
4 |
$src_perl && $dst_perl |
| line |
l |
!l |
condition |
|
275
|
44 |
657 |
$self->{'current_perl'} || $self->env('PERLBREW_PERL') || '' |
|
281
|
10 |
505 |
$self->{'current_lib'} || $self->env('PERLBREW_LIB') || '' |
|
342
|
0 |
5 |
$self->env('PERLBREW_CPAN_MIRROR') || 'https://cpan.metacpan.org' |
|
514
|
0 |
0 |
$verbose || 0 |
|
801
|
5 |
0 |
$rd ||= {} |
|
820
|
0 |
0 |
$rd ||= {} |
|
958
|
1 |
0 |
$self->_firstrcfile('.zshenv', '.bash_profile', '.bash_login', '.profile') || '.zshenv' |
|
973
|
3 |
0 |
$self->_firstrcfile('.bash_profile', '.bash_login', '.profile') || '.bash_profile' |
|
1233
|
46 |
1 |
$dist_type ||= "perl" |
|
1543
|
0 |
4 |
$self->env('PERLBREW_CONFIGURE_FLAGS') || '-de' |
|
1570
|
0 |
4 |
$self->{'j'} || 1 |
|
1650
|
0 |
3 |
$self->env('TMPDIR') || '/tmp' |
|
1703
|
473 |
1 |
substr($version, 5) || 0 |
|
1834
|
0 |
38 |
$self->env('PERL_LOCAL_LIB_ROOT') || '' |
|
2154
|
0 |
0 |
$ENV{'TMPDIR'} || '/tmp' |
|
2286
|
0 |
28 |
$ENV{'MANPATH'} || '' |
|
2287
|
28 |
0 |
$env{'PERL5LIB'} || '' |
|
2710
|
16 |
0 |
$self->env($_) || '' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
234
|
2 |
12 |
0 |
$PERLBREW_ROOT || $ENV{'PERLBREW_ROOT'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, 'perl5', 'perlbrew')->stringify |
|
|
0 |
222 |
0 |
$new_root ||= $PERLBREW_ROOT || $ENV{'PERLBREW_ROOT'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, 'perl5', 'perlbrew')->stringify |
|
255
|
2 |
13 |
0 |
$PERLBREW_HOME || $ENV{'PERLBREW_HOME'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, '.perlbrew')->stringify |
|
|
0 |
225 |
0 |
$new_home ||= $PERLBREW_HOME || $ENV{'PERLBREW_HOME'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, '.perlbrew')->stringify |
|
269
|
1 |
3 |
0 |
$self->{'builddir'} || $self->root->build |
|
286
|
1 |
1 |
2 |
$self->current_shell eq 'bash' || $self->current_shell eq 'zsh' |
|
292
|
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
} |
|
293
|
0 |
2 |
0 |
$self->{'shell'} || $self->env('SHELL') |
|
373
|
0 |
0 |
149 |
$self->{'force'} or $self->{'yes'} |
|
392
|
0 |
420 |
2 |
ref $glob eq "CODE" or defined *$glob{"CODE"} |
|
793
|
1 |
0 |
0 |
$dist_path or $dist_tarball |
|
852
|
0 |
0 |
0 |
$dist_path or $dist_tarball |
|
1178
|
2 |
1 |
6 |
not defined $latest_minor or $latest_minor < $minor |
|
1236
|
4 |
43 |
0 |
$self->{'as'} || $dist |
|
1533
|
0 |
0 |
4 |
$self->{'no-patchperl'} or $looks_like_we_are_installing_cperl |
|
1557
|
0 |
4 |
0 |
$ENV{'MAKE'} || ($^O eq 'solaris' ? 'gmake' : 'make') |
|
1564
|
0 |
0 |
0 |
$dist_version =~ /^5\.(\d+)\.(\d+)/ && ($1 >= 8 || $1 == 7 && $2 == 3) || $dist_version eq 'blead' |
|
1755
|
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'} |
|
1820
|
35 |
2 |
0 |
not $lib_name or grep {$_->{'lib_name'} eq $lib_name;} $self->local_libs($perl_name) |
|
2289
|
9 |
0 |
19 |
$no_header or $self->{'quiet'} |
|
2310
|
1 |
6 |
18 |
$self->{'quiet'} or $no_header |
|
2555
|
0 |
1 |
0 |
$env ||= $self->current_env |
|
2597
|
77 |
7 |
0 |
$perl_name ||= $self->current_perl |
|
2644
|
4 |
0 |
0 |
pop() || $self->current_env |
|
2645
|
2 |
2 |
0 |
pop() || $self->current_env |
|
2651
|
0 |
0 |
4 |
not $src_perl && $dst_perl or $src_perl eq $dst_perl |
|
2736
|
2 |
3 |
0 |
$self->{'output'} || $program |
|
2780
|
0 |
0 |
0 |
$self->{'output'} || $program |