| 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)) |
|
77
|
0 |
0 |
$drive ? : |
|
82
|
0 |
0 |
if (not length $cwd and $drive) |
|
113
|
16 |
0 |
if _is_abs($dir) |
|
116
|
0 |
0 |
$base ? : |
|
133
|
0 |
14 |
if ($0 eq "-") |
|
147
|
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 =~ /^--/) { } |
|
171
|
0 |
1 |
defined $1 ? : |
|
178
|
0 |
0 |
defined $1 ? : |
|
196
|
0 |
14 |
unless (@steps) |
|
207
|
0 |
14 |
if ($0 eq '-') { } |
|
236
|
76 |
0 |
ref $list ? : |
|
237
|
51 |
13 |
defined $ENV{$$_} ? : |
|
|
130 |
64 |
!(ref $_ && ref $_ eq 'SCALAR') ? : |
|
244
|
0 |
12 |
unless @remove |
|
280
|
0 |
22 |
if ($path =~ s/ /\\ /g) |
|
295
|
20 |
0 |
defined $path ? : |
|
|
20 |
0 |
defined $path ? : |
|
304
|
16 |
6 |
ref $self ? : |
|
316
|
0 |
3 |
unless ref $self |
|
322
|
0 |
3 |
unless (grep {$_ eq $path;} @active_lls) |
|
344
|
0 |
0 |
unless ref $self |
|
349
|
0 |
0 |
if (@active_lls) |
|
369
|
0 |
13 |
unless ref $self |
|
372
|
12 |
1 |
unless $opts->{'no_create'} |
|
378
|
2 |
11 |
if (grep {$_ eq $path;} @active_lls[1 .. $#active_lls]) |
|
383
|
11 |
2 |
if ($opts->{'always'} or not @active_lls or $active_lls[0] ne $path) |
|
399
|
0 |
29 |
if $^O eq "MSWin32" |
|
441
|
14 |
0 |
if $INC{'Carp.pm'} |
|
455
|
70 |
0 |
if (defined $env{$key}) { } |
|
496
|
0 |
0 |
if (ref $value and @$value == 1 and ref $value->[0] and ref $value->[0] eq "SCALAR" and ${$value->[0];} eq $name) |
|
507
|
0 |
56 |
if ($self->can($wrap_method)) |
|
517
|
0 |
56 |
unless (defined $value) |
|
530
|
0 |
0 |
unless (defined $value) |
|
540
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)\$\{$name\}(?:$_path_sep|$)//g) |
|
551
|
0 |
0 |
unless ($value) |
|
557
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)%$name%(?:$_path_sep|$)//g) |
|
569
|
0 |
0 |
unless ($value) |
|
587
|
0 |
0 |
unless (defined $value) |
|
595
|
0 |
0 |
if ($name =~ /^(?:CD|MAN)?PATH$/) |
|
597
|
0 |
0 |
$name =~ /^(?:CD)?PATH$/ ? : |
|
603
|
0 |
0 |
if ($value_without =~ s/(?:^|$_path_sep)\$$name(?:$_path_sep|$)//g) |
|
614
|
0 |
56 |
unless defined $args |
|
615
|
28 |
28 |
ref $args ? : |
|
617
|
0 |
56 |
unless @args |
|
620
|
28 |
56 |
ref $_ eq 'SCALAR' ? : |
|
624
|
0 |
56 |
wantarray ? : |
|
632
|
34 |
17 |
if (@methods) { } |
|
660
|
17 |
1 |
if (defined $path) { } |
|
669
|
16 |
0 |
unless $path =~ m[^~([^/]*)] |
|
672
|
0 |
0 |
if (not length $user and defined $ENV{'HOME'}) { } |
|
680
|
0 |
0 |
unless (defined $homedir) |
|
682
|
0 |
0 |
defined $user ? : |
|
713
|
1 |
21 |
if not $opts->{'quiet'} and @dirs |
|
718
|
74 |
61 |
if $seen{$dir}++ |
|
720
|
0 |
61 |
unless mkdir $dir or -d $dir |
|
736
|
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'} ? : |
|
741
|
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$/ ? : |