| 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 =~ m[/]) |
|
371
|
0 |
1 |
if ($cmd =~ /^-/) |
|
374
|
0 |
0 |
if $optarg =~ /^-/ |
|
376
|
0 |
0 |
if (-f (my $file = $self->layout_file($dirname, $optarg))) |
|
387
|
0 |
3 |
if (-f (my $file = $self->layout_file($dirname, $cmd))) |
|
410
|
2 |
1 |
unless @call |
|
423
|
0 |
0 |
unless exec @exec |
|
428
|
0 |
0 |
unless my $cpanm = File::Which::which("cpanm") |
|
437
|
0 |
0 |
unless (@args and $args[0] =~ /^-[lL]/) |
|
447
|
0 |
2 |
unless ($config) |
|
452
|
0 |
0 |
if ($self->list_config_names("env")) |
|
458
|
0 |
2 |
unless my $show = $self->can("show_config_$config") |
|
460
|
1 |
1 |
unless @args |
|
461
|
0 |
1 |
if (my $code = $self->can("run_config_$config")) |
|
465
|
0 |
1 |
unless my $code = $self->can("run_config_${config}_$subcmd") |
|
476
|
0 |
0 |
unless my $perlbrew = File::Which::which("perlbrew") |
|
479
|
0 |
0 |
unless grep(($_ eq $perl), map(/(\S+)/, @list)) |
|
490
|
0 |
12 |
unless $new_perl |
|
492
|
11 |
1 |
unless ($new_perl =~ m[/]) |
|
493
|
0 |
11 |
if $new_perl =~ /^5/ |
|
497
|
11 |
0 |
if (my $resolved = File::Which::which($new_perl)) { } |
|
504
|
0 |
12 |
unless -x $new_perl |
|
517
|
0 |
33 |
unless $name and defined $value |
|
519
|
0 |
33 |
unless (-d (my $dir = $self->layout_config_dir($type))) |
|
520
|
0 |
0 |
unless mkdir $dir |
|
527
|
0 |
0 |
unless $name |
|
564
|
0 |
0 |
if (not defined $eval or ($oval // "") ne $eval) |
|
586
|
1 |
0 |
unless ($base) |
|
590
|
0 |
0 |
unless @chain |
|
598
|
0 |
0 |
unless $args[0] eq "[" |
|
602
|
0 |
0 |
if $el eq "]" |
|
612
|
0 |
0 |
if @args and ref $args[0] |
|
620
|
0 |
0 |
ref $_ ? : |
|
635
|
0 |
33 |
if ($cmd eq "[") |
|
638
|
33 |
0 |
if ($cmd =~ s/^--//) |
|
639
|
33 |
0 |
if ($cmd) |
|
641
|
32 |
1 |
if (my $code = $self->can($method)) |