| line |
!l |
l&&!r |
l&&r |
condition |
|
507
|
5 |
0 |
3 |
$command and not defined $verbose |
|
635
|
590 |
39 |
0 |
$1 && $1 eq 'cperl' |
|
645
|
0 |
0 |
0 |
$1 && $1 eq 'cperl' |
|
646
|
0 |
0 |
0 |
$2 && $2 eq 'blead' |
|
814
|
0 |
0 |
1 |
$json and $result = decode_json($json)->{'hits'}{'hits'}[0] |
|
873
|
0 |
0 |
0 |
$json and $result = decode_json($json)->{'hits'}{'hits'}[0] |
|
895
|
0 |
3 |
1 |
$dist_version and not $dist_type |
|
908
|
0 |
0 |
4 |
$self->can($m_local) and $self->can($m_remote) |
|
926
|
6 |
0 |
0 |
@args and $args[0] eq "-" |
|
958
|
0 |
0 |
28 |
-w $path and open $fh, ">", $path |
|
1118
|
1 |
0 |
2 |
not $dist_version and $dist =~ /blead\.tar.gz$/ |
|
1195
|
0 |
0 |
1 |
defined $extracted_dir and -d $extracted_dir |
|
1237
|
0 |
0 |
1 |
$dist_type and $dist_version =~ /^\d\./ |
|
1291
|
0 |
45 |
2 |
not $self->{'force'} and $self->is_installed($installation_name) |
|
1295
|
1 |
41 |
3 |
$dist_type eq "perl" and $dist_version eq "blead" |
|
1393
|
0 |
0 |
0 |
$self->{'as'} and @dists > 1 |
|
1430
|
0 |
1 |
0 |
$dist and $dist eq "stable" |
|
1439
|
1 |
0 |
0 |
-f $dist_tarball_path and not $self->{'force'} |
|
1513
|
0 |
0 |
9 |
$dist_version and $installation_name |
|
1565
|
0 |
4 |
0 |
defined $version and $version < $self->comparable_perl_version("5.6.0") |
|
1587
|
0 |
0 |
4 |
not $self->{'no-patchperl'} || $looks_like_we_are_installing_cperl and my $patchperl = maybe_patchperl($self->root) |
|
1600
|
0 |
4 |
0 |
defined $version && $version < $self->comparable_perl_version('5.8.9') |
|
1620
|
0 |
4 |
0 |
$test_target eq "test_harness" and ($self->{'j'} || 1) > 1 |
|
1743
|
8 |
0 |
0 |
-f $out and not $self->{'force'} |
|
|
8 |
0 |
0 |
-f $out and not $self->{'force'} and not $self->{'yes'} |
|
1772
|
2 |
0 |
1 |
$body_filter and ref $body_filter eq "CODE" |
|
1845
|
0 |
0 |
35 |
defined $orig_version and length $orig_version |
|
1852
|
430 |
3 |
41 |
$self->current_perl eq $name && !$self->current_lib |
|
2131
|
0 |
0 |
0 |
$alias and $alias =~ /^perl-/ |
|
2136
|
0 |
0 |
0 |
$self->env("PERLBREW_SHELLRC_VERSION") and $self->current_shell_is_bashish |
|
2175
|
3 |
4 |
39 |
defined $v and $v ne "" |
|
2461
|
1 |
0 |
0 |
$alias and -e $path_alias |
|
|
1 |
0 |
0 |
$alias and -e $path_alias and not -l $path_alias |
|
2468
|
0 |
0 |
0 |
$self->is_installed($alias) and not $self->{'force'} |
|
2491
|
0 |
0 |
0 |
-l $path_alias and not $self->{'force'} |
|
2767
|
0 |
0 |
4 |
$src_perl && $dst_perl |
|
2896
|
0 |
0 |
0 |
$input and $output |
| line |
l |
!l |
condition |
|
290
|
44 |
657 |
$self->{'current_perl'} || $self->env('PERLBREW_PERL') || '' |
|
296
|
15 |
496 |
$self->{'current_lib'} || $self->env('PERLBREW_LIB') || '' |
|
357
|
0 |
5 |
$self->env('PERLBREW_CPAN_MIRROR') || 'https://cpan.metacpan.org' |
|
539
|
3 |
2 |
$verbose || 0 |
|
828
|
5 |
0 |
$rd ||= {} |
|
847
|
0 |
0 |
$rd ||= {} |
|
985
|
1 |
0 |
$self->_firstrcfile('.zshenv', '.bash_profile', '.bash_login', '.profile') || '.zshenv' |
|
1000
|
4 |
0 |
$self->_firstrcfile('.bash_profile', '.bash_login', '.profile') || '.bash_profile' |
|
1287
|
46 |
1 |
$dist_type ||= "perl" |
|
1593
|
0 |
4 |
$self->env('PERLBREW_CONFIGURE_FLAGS') || '-de' |
|
1620
|
0 |
4 |
$self->{'j'} || 1 |
|
1758
|
0 |
3 |
$self->env('TMPDIR') || '/tmp' |
|
1819
|
477 |
1 |
substr($version, 5) || 0 |
|
1950
|
0 |
38 |
$self->env('PERL_LOCAL_LIB_ROOT') || '' |
|
2270
|
0 |
0 |
$ENV{'TMPDIR'} || '/tmp' |
|
2402
|
0 |
28 |
$ENV{'MANPATH'} || '' |
|
2403
|
28 |
0 |
$env{'PERL5LIB'} || '' |
|
2826
|
16 |
0 |
$self->env($_) || '' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
249
|
10 |
12 |
0 |
$PERLBREW_ROOT || $ENV{'PERLBREW_ROOT'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, 'perl5', 'perlbrew')->stringify |
|
|
0 |
240 |
0 |
$new_root ||= $PERLBREW_ROOT || $ENV{'PERLBREW_ROOT'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, 'perl5', 'perlbrew')->stringify |
|
270
|
2 |
21 |
0 |
$PERLBREW_HOME || $ENV{'PERLBREW_HOME'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, '.perlbrew')->stringify |
|
|
0 |
243 |
0 |
$new_home ||= $PERLBREW_HOME || $ENV{'PERLBREW_HOME'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, '.perlbrew')->stringify |
|
284
|
1 |
3 |
0 |
$self->{'builddir'} || $self->root->build |
|
301
|
1 |
1 |
2 |
$self->current_shell eq 'bash' || $self->current_shell eq 'zsh' |
|
307
|
22 |
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
} |
|
308
|
0 |
2 |
0 |
$self->{'shell'} || $self->env('SHELL') |
|
388
|
0 |
0 |
158 |
$self->{'force'} or $self->{'yes'} |
|
407
|
0 |
462 |
4 |
ref $glob eq "CODE" or defined *$glob{"CODE"} |
|
820
|
1 |
0 |
0 |
$dist_path or $dist_tarball |
|
879
|
0 |
0 |
0 |
$dist_path or $dist_tarball |
|
1220
|
2 |
1 |
6 |
not defined $latest_minor or $latest_minor < $minor |
|
1290
|
4 |
43 |
0 |
$self->{'as'} || $dist |
|
1587
|
0 |
0 |
4 |
$self->{'no-patchperl'} || $looks_like_we_are_installing_cperl |
|
1607
|
0 |
4 |
0 |
$ENV{'MAKE'} || ($^O eq 'solaris' ? 'gmake' : 'make') |
|
1614
|
0 |
0 |
0 |
$dist_version =~ /^5\.(\d+)\.(\d+)/ && ($1 >= 8 || $1 == 7 && $2 == 3) || $dist_version eq 'blead' |
|
1683
|
0 |
0 |
0 |
$self->{'as'} || 'skaji-relocatable-perl-' . $detail->{'version'} |
|
1871
|
0 |
0 |
0 |
$App::perlbrew::a->{'comparable_version'} <=> $App::perlbrew::b->{'comparable_version'} || $App::perlbrew::b->{'name'} cmp $App::perlbrew::a->{'name'} |
|
|
403 |
0 |
0 |
$App::perlbrew::b->{'comparable_version'} <=> $App::perlbrew::a->{'comparable_version'} || $App::perlbrew::a->{'name'} cmp $App::perlbrew::b->{'name'} |
|
1936
|
35 |
2 |
0 |
not $lib_name or grep {$_->{'lib_name'} eq $lib_name;} $self->local_libs($perl_name) |
|
2405
|
9 |
0 |
19 |
$no_header or $self->{'quiet'} |
|
2426
|
1 |
6 |
18 |
$self->{'quiet'} or $no_header |
|
2671
|
0 |
1 |
0 |
$env ||= $self->current_env |
|
2713
|
77 |
7 |
0 |
$perl_name ||= $self->current_perl |
|
2760
|
4 |
0 |
0 |
pop() || $self->current_env |
|
2761
|
2 |
2 |
0 |
pop() || $self->current_env |
|
2767
|
0 |
0 |
4 |
not $src_perl && $dst_perl or $src_perl eq $dst_perl |
|
2852
|
2 |
3 |
0 |
$self->{'output'} || $program |