| line |
true |
false |
branch |
|
4
|
0 |
9 |
if ($ENV{'RELEASE_TESTING'}) |
|
18
|
0 |
9 |
$^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'symbian' ? : |
|
21
|
9 |
0 |
$^O eq 'MacOS' || $^O eq 'VMS' || $INC{'File/Spec.pm'} ? : |
|
38
|
2 |
0 |
unless ($_PERL) |
|
41
|
0 |
2 |
unless $exe =~ /perl/ |
|
43
|
2 |
0 |
if (_is_abs($_PERL)) { } |
|
|
0 |
0 |
elsif (-x $Config::Config{'perlpath'}) { } |
|
|
0 |
0 |
elsif ($_PERL =~ /$_DIR_SPLIT/ and -x $_PERL) { } |
|
64
|
0 |
0 |
defined &Cwd::cwd ? : |
|
|
0 |
0 |
defined &Cwd::sys_cwd ? : |
|
|
0 |
0 |
if (my $cwd = defined &Cwd::sys_cwd ? \&Cwd::sys_cwd : (defined &Cwd::cwd ? \&Cwd::cwd : undef)) |
|
78
|
0 |
0 |
$drive ? : |
|
83
|
0 |
0 |
if (not length $cwd and $drive) |
|
114
|
16 |
0 |
if _is_abs($dir) |
|
117
|
0 |
0 |
$base ? : |
|
134
|
0 |
14 |
if ($0 eq "-") |
|
148
|
0 |
15 |
if ($arg =~ /\xE2\x88\x92/) { } |
|
|
0 |
15 |
elsif ($arg eq '--self-contained') { } |
|
|
1 |
14 |
elsif ($arg =~ /^--deactivate(?:=(.*))?$/) { } |
|
|
0 |
14 |
elsif ($arg eq '--deactivate-all') { } |
|
|
0 |
14 |
elsif ($arg =~ /^--shelltype(?:=(.*))?$/) { } |
|
|
1 |
13 |
elsif ($arg eq '--no-create') { } |
|
|
0 |
13 |
elsif ($arg eq '--quiet') { } |
|
|
0 |
13 |
elsif ($arg eq '--always') { } |
|
|
0 |
13 |
elsif ($arg =~ /^--/) { } |
|
172
|
0 |
1 |
defined $1 ? : |
|
179
|
0 |
0 |
defined $1 ? : |
|
197
|
0 |
14 |
unless (@steps) |
|
208
|
0 |
14 |
if ($0 eq '-') { } |
|
237
|
76 |
0 |
ref $list ? : |
|
238
|
51 |
13 |
defined $ENV{$$_} ? : |
|
|
130 |
64 |
!(ref $_ && ref $_ eq 'SCALAR') ? : |
|
245
|
0 |
12 |
unless @remove |
|
281
|
0 |
22 |
if ($path =~ s/ /\\ /g) |
|
296
|
20 |
0 |
defined $path ? : |
|
|
20 |
0 |
defined $path ? : |
|
305
|
16 |
6 |
ref $self ? : |
|
317
|
0 |
3 |
unless ref $self |
|
323
|
0 |
3 |
unless (grep {$_ eq $path;} @active_lls) |
|
345
|
0 |
0 |
unless ref $self |
|
350
|
0 |
0 |
if (@active_lls) |
|
370
|
0 |
13 |
unless ref $self |
|
373
|
12 |
1 |
unless $opts->{'no_create'} |
|
379
|
2 |
11 |
if (grep {$_ eq $path;} @active_lls[1 .. $#active_lls]) |
|
384
|
11 |
2 |
if ($opts->{'always'} or not @active_lls or $active_lls[0] ne $path) |
|
400
|
0 |
29 |
if $^O eq "MSWin32" |
|
442
|
14 |
0 |
if $INC{'Carp.pm'} |
|
456
|
70 |
0 |
if (defined $env{$key}) { } |
|
497
|
0 |
0 |
if (ref $value and @$value == 1 and ref $value->[0] and ref $value->[0] eq "SCALAR" and ${$value->[0];} eq $name) |
|
508
|
0 |
56 |
if ($self->can($wrap_method)) |
|
518
|
0 |
56 |
unless (defined $value) |
|
531
|
0 |
0 |
unless (defined $value) |
|
541
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)\$\{$name\}(?:$_path_sep|$)//g) |
|
552
|
0 |
0 |
unless ($value) |
|
558
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)%$name%(?:$_path_sep|$)//g) |
|
570
|
0 |
0 |
unless ($value) |
|
588
|
0 |
0 |
unless (defined $value) |
|
596
|
0 |
0 |
if ($name =~ /^(?:CD|MAN)?PATH$/) |
|
598
|
0 |
0 |
$name =~ /^(?:CD)?PATH$/ ? : |
|
604
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)\$$name(?:$_path_sep|$)//g) |
|
615
|
0 |
56 |
unless defined $args |
|
616
|
28 |
28 |
ref $args ? : |
|
618
|
0 |
56 |
unless @args |
|
621
|
28 |
56 |
ref $_ eq 'SCALAR' ? : |
|
625
|
0 |
56 |
wantarray ? : |
|
633
|
34 |
17 |
if (@methods) { } |
|
661
|
17 |
1 |
if (defined $path) { } |
|
670
|
16 |
0 |
unless $path =~ m[^~([^/]*)] |
|
673
|
0 |
0 |
if (not length $user and defined $ENV{'HOME'}) { } |
|
681
|
0 |
0 |
unless (defined $homedir) |
|
683
|
0 |
0 |
defined $user ? : |
|
714
|
1 |
21 |
if not $opts->{'quiet'} and @dirs |
|
719
|
74 |
61 |
if $seen{$dir}++ |
|
721
|
0 |
61 |
unless mkdir $dir or -d $dir |
|
737
|
0 |
0 |
$^O eq 'MSWin32' && !$ENV{'PROMPT'} ? : |
|
|
0 |
0 |
$^O eq 'MSWin32' && $ENV{'PROMPT'} && $ENV{'COMSPEC'} ? : |
|
|
0 |
0 |
$^O eq 'MSWin32' && exists $ENV{'!EXITCODE'} ? : |
|
|
4 |
0 |
defined $ENV{'SHELL'} && length $ENV{'SHELL'} ? : |
|
742
|
0 |
4 |
/powershell(?:\.exe)?$/i ? : |
|
|
0 |
4 |
/4nt(?:\.exe)?$/i ? : |
|
|
0 |
4 |
/cmd(?:\.exe)?$/i ? : |
|
|
0 |
4 |
/command(?:\.com)?$/i ? : |
|
|
0 |
4 |
/fish$/ ? : |
|
|
0 |
4 |
/csh$/ ? : |