| line |
true |
false |
branch |
|
22
|
0 |
1 |
$0 eq '-' ? : |
|
50
|
0 |
0 |
@_ > 1 ? : |
|
|
0 |
33 |
@_ ? : |
|
66
|
20 |
56 |
if -d $fs->catdir($cand, ".plx") |
|
67
|
0 |
56 |
if (-d $fs->catdir($cand, ".git")) |
|
78
|
0 |
6 |
unless ($perl_bin) |
|
80
|
0 |
0 |
unless $perl_spec |
|
83
|
0 |
0 |
unless $perl_bin |
|
85
|
0 |
6 |
unless -x $perl_bin |
|
113
|
0 |
10 |
unless -d $self->layout_dir(".plx") |
|
116
|
0 |
10 |
unless $format |
|
117
|
0 |
10 |
unless $format eq 1 |
|
125
|
33 |
35 |
ref $path ? : |
|
126
|
0 |
68 |
unless open my $wfh, ">", $file |
|
132
|
0 |
0 |
ref $path ? : |
|
133
|
0 |
0 |
if -e $file |
|
138
|
12 |
16 |
ref $path ? : |
|
139
|
0 |
28 |
unless -f $file |
|
140
|
0 |
28 |
unless open my $rfh, "<", $file |
|
147
|
0 |
7 |
ref $path ? : |
|
148
|
3 |
4 |
unless -d $dir |
|
149
|
0 |
4 |
unless opendir my $dh, $dir |
|
155
|
0 |
3 |
unless open my $slurp_fh, "-|", @cmd |
|
168
|
0 |
0 |
$0 eq '-' ? : |
|
188
|
0 |
3 |
unless (grep(($_ eq $perl_dirname), split(/:/, $orig_env{'PATH'}, 0))) |
|
193
|
9 |
0 |
unless $path and -d $path |
|
207
|
3 |
0 |
unless -d (my $dir = $self->layout_dir($dirname)) |
|
208
|
0 |
0 |
unless opendir my $dh, $dir |
|
210
|
0 |
0 |
if $entry =~ /^\.+$/ |
|
212
|
0 |
0 |
unless -f $file |
|
213
|
0 |
0 |
unless ($seen{$entry}++) |
|
222
|
0 |
0 |
if $entry =~ /^\.+$/ |
|
224
|
0 |
0 |
unless -x $file |
|
225
|
0 |
0 |
unless $seen{$entry}++ |
|
228
|
0 |
1 |
if ($filter) |
|
229
|
0 |
0 |
$filter =~ m[^/(.+)/$] ? : |
|
238
|
0 |
0 |
if $home |
|
246
|
0 |
11 |
if (-d $dir) |
|
247
|
0 |
0 |
if ($perl) |
|
256
|
0 |
11 |
unless mkdir $dir |
|
263
|
0 |
0 |
@args && !ref($args[0]) && $args[0] ne '[' ? : |
|
268
|
0 |
0 |
unless $ENV{'HOME'} |
|
271
|
0 |
0 |
@args ? : |
|
280
|
0 |
0 |
@args && !ref($args[0]) && $args[0] ne '[' ? : |
|
297
|
0 |
0 |
if $type eq "ll" |
|
299
|
0 |
0 |
unless $last_ll |
|
309
|
0 |
0 |
unless $ENV{'SHELL'} =~ /bash/ |
|
311
|
0 |
0 |
unless -f (my $bashrc = $fs->catfile($ENV{'HOME'}, ".bashrc")) |
|
320
|
0 |
0 |
unless $plx_bin |
|
322
|
0 |
0 |
unless open my $fh, "<", $bashrc |
|
323
|
0 |
0 |
if (my($line) = grep(/plx-packed/, readline $fh)) |
|
331
|
0 |
0 |
unless open my $fh, ">>", $bashrc |
|
339
|
0 |
11 |
unless mkdir $libspec_dir |
|
357
|
0 |
2 |
unless $cmd |
|
359
|
0 |
2 |
if ($fs->file_name_is_absolute($cmd)) |
|
363
|
1 |
1 |
if ($cmd eq "perl") |
|
367
|
0 |
1 |
if ($cmd =~ /^-/) |
|
370
|
0 |
0 |
if $optarg =~ /^-/ |
|
372
|
0 |
0 |
if (-f (my $file = $self->layout_file($dirname, $optarg))) |
|
383
|
0 |
3 |
if (-f (my $file = $self->layout_file($dirname, $cmd))) |
|
406
|
2 |
1 |
unless @call |
|
419
|
0 |
0 |
unless exec @exec |
|
424
|
0 |
0 |
unless my $cpanm = File::Which::which("cpanm") |
|
433
|
0 |
0 |
unless (@args and $args[0] =~ /^-[lL]/) |
|
443
|
0 |
2 |
unless ($config) |
|
448
|
0 |
0 |
if ($self->list_config_names("env")) |
|
454
|
0 |
2 |
unless my $show = $self->can("show_config_$config") |
|
456
|
1 |
1 |
unless @args |
|
457
|
0 |
1 |
if (my $code = $self->can("run_config_$config")) |
|
461
|
0 |
1 |
unless my $code = $self->can("run_config_${config}_$subcmd") |
|
472
|
0 |
0 |
unless my $perlbrew = File::Which::which("perlbrew") |
|
475
|
0 |
0 |
unless grep(($_ eq $perl), map(/(\S+)/, @list)) |
|
486
|
0 |
12 |
unless $new_perl |
|
488
|
11 |
1 |
unless ($new_perl =~ m[/]) |
|
489
|
0 |
11 |
if $new_perl =~ /^5/ |
|
493
|
11 |
0 |
if (my $resolved = File::Which::which($new_perl)) { } |
|
500
|
0 |
12 |
unless -x $new_perl |
|
513
|
0 |
33 |
unless $name and defined $value |
|
515
|
0 |
33 |
unless (-d (my $dir = $self->layout_config_dir($type))) |
|
516
|
0 |
0 |
unless mkdir $dir |
|
523
|
0 |
0 |
unless $name |
|
560
|
0 |
0 |
if (not defined $eval or ($oval // "") ne $eval) |
|
582
|
1 |
0 |
unless ($base) |
|
586
|
0 |
0 |
unless @chain |
|
594
|
0 |
0 |
unless $args[0] eq "[" |
|
598
|
0 |
0 |
if $el eq "]" |
|
608
|
0 |
0 |
if @args and ref $args[0] |
|
616
|
0 |
0 |
ref $_ ? : |
|
631
|
0 |
33 |
if ($cmd eq "[") |
|
634
|
33 |
0 |
if ($cmd =~ s/^--//) |
|
635
|
33 |
0 |
if ($cmd) |
|
637
|
32 |
1 |
if (my $code = $self->can($method)) |