| line |
true |
false |
branch |
|
6
|
0 |
1 |
if ($ENV{'RELEASE_TESTING'}) |
|
17
|
0 |
1 |
$^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'symbian' ? : |
|
20
|
1 |
0 |
$^O eq 'MacOS' || $^O eq 'VMS' || $INC{'File/Spec.pm'} ? : |
|
37
|
0 |
0 |
unless ($_PERL) |
|
40
|
0 |
0 |
unless $exe =~ /perl/ |
|
42
|
0 |
0 |
if (_is_abs($_PERL)) { } |
|
|
0 |
0 |
elsif (-x $Config::Config{'perlpath'}) { } |
|
|
0 |
0 |
elsif ($_PERL =~ /$_DIR_SPLIT/ and -x $_PERL) { } |
|
63
|
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)) |
|
76
|
0 |
0 |
$drive ? : |
|
81
|
0 |
0 |
if (not length $cwd and $drive) |
|
112
|
1 |
0 |
if _is_abs($dir) |
|
115
|
0 |
0 |
$base ? : |
|
132
|
0 |
0 |
if ($0 eq '-') |
|
146
|
0 |
0 |
if ($arg =~ /\xE2\x88\x92/) { } |
|
|
0 |
0 |
elsif ($arg eq '--self-contained') { } |
|
|
0 |
0 |
elsif ($arg =~ /^--deactivate(?:=(.*))?$/) { } |
|
|
0 |
0 |
elsif ($arg eq '--deactivate-all') { } |
|
|
0 |
0 |
elsif ($arg =~ /^--shelltype(?:=(.*))?$/) { } |
|
|
0 |
0 |
elsif ($arg eq '--no-create') { } |
|
|
0 |
0 |
elsif ($arg eq '--quiet') { } |
|
|
0 |
0 |
elsif ($arg =~ /^--/) { } |
|
170
|
0 |
0 |
defined $1 ? : |
|
177
|
0 |
0 |
defined $1 ? : |
|
192
|
0 |
0 |
unless (@steps) |
|
203
|
0 |
0 |
if ($0 eq '-') { } |
|
232
|
4 |
0 |
ref $list ? : |
|
233
|
2 |
2 |
defined $ENV{$$_} ? : |
|
|
3 |
4 |
!(ref $_ && ref $_ eq 'SCALAR') ? : |
|
240
|
0 |
0 |
unless @remove |
|
276
|
0 |
1 |
if ($path =~ s/ /\\ /g) |
|
291
|
1 |
0 |
defined $path ? : |
|
|
1 |
0 |
defined $path ? : |
|
300
|
1 |
0 |
ref $self ? : |
|
312
|
0 |
0 |
unless ref $self |
|
318
|
0 |
0 |
unless (grep {$_ eq $path;} @active_lls) |
|
340
|
0 |
0 |
unless ref $self |
|
345
|
0 |
0 |
if (@active_lls) |
|
365
|
0 |
1 |
unless ref $self |
|
368
|
1 |
0 |
unless $opts->{'no_create'} |
|
374
|
0 |
1 |
if (grep {$_ eq $path;} @active_lls[1 .. $#active_lls]) |
|
379
|
1 |
0 |
if ($opts->{'always'} or not @active_lls or $active_lls[0] ne $path) |
|
395
|
0 |
1 |
if $^O eq 'MSWin32' |
|
437
|
0 |
0 |
if $INC{'Carp.pm'} |
|
451
|
5 |
0 |
if (defined $env{$key}) { } |
|
492
|
0 |
0 |
if (ref $value and @$value == 1 and ref $value->[0] and ref $value->[0] eq 'SCALAR' and ${$value->[0];} eq $name) |
|
503
|
0 |
0 |
if ($self->can($wrap_method)) |
|
513
|
0 |
0 |
unless (defined $value) |
|
526
|
0 |
0 |
unless (defined $value) |
|
536
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)\$\{$name\}(?:$_path_sep|$)//g) |
|
547
|
0 |
0 |
unless ($value) |
|
553
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)%$name%(?:$_path_sep|$)//g) |
|
565
|
0 |
0 |
unless ($value) |
|
583
|
0 |
0 |
unless (defined $value) |
|
591
|
0 |
0 |
if ($name =~ /^(?:CD|MAN)?PATH$/) |
|
593
|
0 |
0 |
$name =~ /^(?:CD)?PATH$/ ? : |
|
599
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)\$$name(?:$_path_sep|$)//g) |
|
610
|
0 |
0 |
unless defined $args |
|
611
|
0 |
0 |
ref $args ? : |
|
613
|
0 |
0 |
unless @args |
|
616
|
0 |
0 |
ref $_ eq 'SCALAR' ? : |
|
620
|
0 |
0 |
wantarray ? : |
|
628
|
2 |
1 |
if (@methods) { } |
|
656
|
1 |
0 |
if (defined $path) { } |
|
665
|
1 |
0 |
unless $path =~ m[^~([^/]*)] |
|
668
|
0 |
0 |
if (not length $user and defined $ENV{'HOME'}) { } |
|
676
|
0 |
0 |
unless (defined $homedir) |
|
678
|
0 |
0 |
defined $user ? : |
|
709
|
0 |
2 |
if not $opts->{'quiet'} and @dirs |
|
714
|
7 |
6 |
if $seen{$dir}++ |
|
716
|
0 |
6 |
unless mkdir $dir or -d $dir |
|
732
|
0 |
0 |
$^O eq 'MSWin32' && !$ENV{'PROMPT'} ? : |
|
|
0 |
0 |
$^O eq 'MSWin32' && $ENV{'PROMPT'} && $ENV{'COMSPEC'} ? : |
|
|
0 |
0 |
$^O eq 'MSWin32' && exists $ENV{'!EXITCODE'} ? : |
|
|
0 |
0 |
defined $ENV{'SHELL'} && length $ENV{'SHELL'} ? : |
|
737
|
0 |
0 |
/powershell(?:\.exe)?$/i ? : |
|
|
0 |
0 |
/4nt(?:\.exe)?$/i ? : |
|
|
0 |
0 |
/cmd(?:\.exe)?$/i ? : |
|
|
0 |
0 |
/command(?:\.com)?$/i ? : |
|
|
0 |
0 |
/fish$/ ? : |
|
|
0 |
0 |
/csh$/ ? : |