| line |
!l |
l&&!r |
l&&r |
condition |
|
477
|
0 |
0 |
2 |
$status and not defined $verbose |
|
602
|
580 |
44 |
4 |
$1 && $1 eq 'cperl' |
|
611
|
0 |
0 |
0 |
$1 && $1 eq 'cperl' |
|
612
|
0 |
0 |
0 |
$2 && $2 eq 'blead' |
|
810
|
0 |
0 |
1 |
$json and $result = decode_json($json)->{'hits'}{'hits'}[0] |
|
886
|
0 |
0 |
0 |
$json and $result = decode_json($json)->{'hits'}{'hits'}[0] |
|
954
|
0 |
4 |
1 |
$dist_version and not $dist_type |
|
981
|
5 |
0 |
0 |
@args and $args[0] eq "-" |
|
1010
|
0 |
0 |
28 |
-w $path and open $fh, ">", $path |
|
1161
|
1 |
0 |
2 |
not $dist_version and $dist =~ /blead\.tar.gz$/ |
|
1220
|
0 |
0 |
1 |
defined $extracted_dir and -d $extracted_dir |
|
1262
|
0 |
0 |
1 |
$dist_type and $dist_version =~ /^\d\./ |
|
1304
|
0 |
44 |
2 |
not $self->{'force'} and $self->is_installed($installation_name) |
|
1308
|
1 |
40 |
3 |
$dist_type eq "perl" and $dist_version eq "blead" |
|
1402
|
0 |
0 |
0 |
$self->{'as'} and @dists > 1 |
|
1443
|
0 |
1 |
0 |
$dist and $dist eq "stable" |
|
1452
|
1 |
0 |
0 |
-f $dist_tarball_path and not $self->{'force'} |
|
1526
|
0 |
0 |
9 |
$dist_version and $installation_name |
|
1577
|
0 |
4 |
0 |
defined $version and $version < $self->comparable_perl_version("5.6.0") |
|
1602
|
4 |
0 |
0 |
-x $patchperl and -f _ |
|
1616
|
0 |
4 |
0 |
defined $version && $version < $self->comparable_perl_version('5.8.9') |
|
1633
|
0 |
4 |
0 |
$dist_version =~ /^5\.(\d+)\.(\d+)/ and $1 >= 8 || $1 == 7 && $2 == 3 |
|
1638
|
0 |
4 |
0 |
$test_target eq "test_harness" and ($self->{'j'} || 1) > 1 |
|
1708
|
8 |
0 |
0 |
-f $out and not $self->{'force'} |
|
|
8 |
0 |
0 |
-f $out and not $self->{'force'} and not $self->{'yes'} |
|
1735
|
2 |
0 |
1 |
$body_filter and ref $body_filter eq "CODE" |
|
1801
|
0 |
0 |
32 |
defined $orig_version and length $orig_version |
|
1808
|
424 |
2 |
38 |
$self->current_perl eq $name && !$self->current_lib |
|
2077
|
0 |
0 |
0 |
$alias and $alias =~ /^perl-/ |
|
2082
|
0 |
0 |
0 |
$self->env("PERLBREW_SHELLRC_VERSION") and $self->current_shell_is_bashish |
|
2121
|
1 |
2 |
25 |
defined $v and $v ne "" |
|
2381
|
1 |
0 |
0 |
$alias and -e $path_alias |
|
|
1 |
0 |
0 |
$alias and -e $path_alias and not -l $path_alias |
|
2388
|
0 |
0 |
0 |
$self->is_installed($alias) and not $self->{'force'} |
|
2409
|
0 |
0 |
0 |
-l $path_alias and not $self->{'force'} |
|
2683
|
0 |
0 |
4 |
$src_perl && $dst_perl |
| line |
l |
!l |
condition |
|
256
|
34 |
652 |
$self->{'current_perl'} || $self->env('PERLBREW_PERL') || '' |
|
262
|
10 |
492 |
$self->{'current_lib'} || $self->env('PERLBREW_LIB') || '' |
|
323
|
0 |
5 |
$self->env('PERLBREW_CPAN_MIRROR') || 'https://cpan.metacpan.org' |
|
505
|
0 |
0 |
$verbose || 0 |
|
841
|
5 |
0 |
$rd ||= {} |
|
860
|
0 |
0 |
$rd ||= {} |
|
905
|
2 |
0 |
$rd ||= {} |
|
931
|
0 |
0 |
$rd ||= {} |
|
936
|
0 |
0 |
eval {
do {
http_get('https://github.com/perl11/cperl/releases/tag/' . $dist)
}
} || '' |
|
1035
|
1 |
0 |
$self->_firstrcfile('.zshenv', '.bash_profile', '.bash_login', '.profile') || '.zshenv' |
|
1048
|
3 |
0 |
$self->_firstrcfile('.bash_profile', '.bash_login', '.profile') || '.bash_profile' |
|
1300
|
45 |
1 |
$dist_type ||= "perl" |
|
1609
|
0 |
4 |
$self->env('PERLBREW_CONFIGURE_FLAGS') || '-de' |
|
1638
|
0 |
4 |
$self->{'j'} || 1 |
|
1722
|
0 |
3 |
$self->env('TMPDIR') || '/tmp' |
|
1773
|
467 |
1 |
substr($version, 5) || 0 |
|
1901
|
0 |
31 |
$self->env('PERL_LOCAL_LIB_ROOT') || '' |
|
2201
|
0 |
0 |
$ENV{'TMPDIR'} || '/tmp' |
|
2324
|
0 |
28 |
$ENV{'MANPATH'} || '' |
|
2325
|
28 |
0 |
$env{'PERL5LIB'} || '' |
|
2740
|
16 |
0 |
$self->env($_) || '' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
216
|
2 |
12 |
0 |
$PERLBREW_ROOT || $ENV{'PERLBREW_ROOT'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, 'perl5', 'perlbrew')->stringify |
|
|
0 |
212 |
0 |
$new_root ||= $PERLBREW_ROOT || $ENV{'PERLBREW_ROOT'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, 'perl5', 'perlbrew')->stringify |
|
236
|
2 |
13 |
0 |
$PERLBREW_HOME || $ENV{'PERLBREW_HOME'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, '.perlbrew')->stringify |
|
|
0 |
215 |
0 |
$new_home ||= $PERLBREW_HOME || $ENV{'PERLBREW_HOME'} || 'App::Perlbrew::Path'->new($ENV{'HOME'}, '.perlbrew')->stringify |
|
250
|
1 |
3 |
0 |
$self->{'builddir'} || $self->root->build |
|
267
|
1 |
1 |
2 |
$self->current_shell eq 'bash' || $self->current_shell eq 'zsh' |
|
273
|
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
} |
|
274
|
0 |
2 |
0 |
$self->{'shell'} || $self->env('SHELL') |
|
354
|
0 |
0 |
142 |
$self->{'force'} or $self->{'yes'} |
|
373
|
0 |
240 |
2 |
ref $glob eq "CODE" or defined *$glob{"CODE"} |
|
816
|
1 |
0 |
0 |
$dist_path or $dist_tarball |
|
892
|
0 |
0 |
0 |
$dist_path or $dist_tarball |
|
1245
|
2 |
1 |
6 |
not defined $latest_minor or $latest_minor < $minor |
|
1303
|
4 |
42 |
0 |
$self->{'as'} || $dist |
|
1599
|
0 |
0 |
4 |
$self->{'no-patchperl'} or $looks_like_we_are_installing_cperl |
|
1623
|
0 |
4 |
0 |
$ENV{'MAKE'} || ($^O eq 'solaris' ? 'gmake' : 'make') |
|
1633
|
4 |
0 |
0 |
$1 >= 8 || $1 == 7 && $2 == 3 |
|
1823
|
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'} |
|
1887
|
29 |
2 |
0 |
not $lib_name or grep {$_->{'lib_name'} eq $lib_name;} $self->local_libs($perl_name) |
|
2327
|
9 |
0 |
19 |
$no_header or $self->{'quiet'} |
|
2346
|
1 |
6 |
18 |
$self->{'quiet'} or $no_header |
|
2586
|
0 |
1 |
0 |
$env ||= $self->current_env |
|
2614
|
0 |
1 |
0 |
$rename{$_} // $_ |
|
2629
|
71 |
7 |
0 |
$perl_name ||= $self->current_perl |
|
2676
|
4 |
0 |
0 |
pop() || $self->current_env |
|
2677
|
2 |
2 |
0 |
pop() || $self->current_env |
|
2683
|
0 |
0 |
4 |
not $src_perl && $dst_perl or $src_perl eq $dst_perl |