| line |
true |
false |
branch |
|
24
|
0 |
7 |
if (not shell_exists("Dummy self", $shell) or $shell eq "auto") |
|
29
|
0 |
7 |
if ($@) |
|
37
|
0 |
0 |
if ($^O =~ /win32/i) { } |
|
41
|
0 |
0 |
if (index($psmodpath, $userprofile) == 0) { } |
|
54
|
0 |
0 |
if ($shell eq "csh" and $ENV{'tcsh'}) |
|
60
|
0 |
0 |
unless (shell_exists("Dummy self", $shell)) |
|
78
|
0 |
7 |
$@ ? : |
|
88
|
0 |
0 |
$^O =~ /win32/i ? : |
|
90
|
0 |
0 |
if ($command eq 'shell' and @params) { } |
|
|
0 |
0 |
elsif ($command eq 'mode' and $mode eq 'shim') { } |
|
|
0 |
0 |
elsif ($mode eq 'env') { } |
|
92
|
0 |
0 |
if ($params[0] eq '--unset') { } |
|
|
0 |
0 |
elsif (not is_version_broken($params[0])) { } |
|
109
|
0 |
0 |
if ($mode eq "env") |
|
113
|
0 |
0 |
if ($version ne "system") |
|
114
|
0 |
0 |
if ($version eq "--unset") |
|
118
|
0 |
0 |
if is_version_broken($version) |
|
124
|
0 |
0 |
if ($path ne $ENV{'PATH'}) |
|
135
|
0 |
0 |
$^O =~ /win32/i ? : |
|
139
|
0 |
0 |
if $version eq "system" |
|
140
|
0 |
0 |
if is_version_broken($version) |
|
151
|
0 |
0 |
if $also_clean_path |
|
177
|
0 |
0 |
if $word =~ /(^|\W)$App::Rakubrew::Shell::brew_name$/ |
|
216
|
0 |
0 |
if ($index <= 0) { } |
|
|
0 |
0 |
elsif ($index == 1 and $words[0] eq 'global' || $words[0] eq 'switch' || $words[0] eq 'shell' || $words[0] eq 'local' || $words[0] eq 'nuke' || $words[0] eq 'test') { } |
|
|
0 |
0 |
elsif ($index == 1 and $words[0] eq 'build') { } |
|
|
0 |
0 |
elsif ($index == 2 and $words[0] eq 'build') { } |
|
|
0 |
0 |
elsif ($index == 1 and $words[0] eq 'download') { } |
|
|
0 |
0 |
elsif ($index == 2 and $words[0] eq 'download') { } |
|
|
0 |
0 |
elsif ($index == 1 and $words[0] eq 'mode') { } |
|
|
0 |
0 |
elsif ($index == 2 and $words[0] eq 'register') { } |
|
|
0 |
0 |
elsif ($index == 1 and $words[0] eq 'help') { } |
|
217
|
0 |
0 |
$index < 0 || !$words[0] ? : |
|
223
|
0 |
0 |
if $words[0] eq "test" |
|
224
|
0 |
0 |
if $words[0] eq "shell" |
|
233
|
0 |
0 |
if ($_ =~ /^\Q$words[1]\E-(.*)$/) { } |
|
243
|
0 |
0 |
if ($_ =~ /^\Q$words[1]\E-(.*)$/) { } |
|
261
|
0 |
0 |
unless opendir my $dh, $basepath |
|
264
|
0 |
0 |
if $entry =~ /^\./ |
|
265
|
0 |
0 |
if substr($candidate, 0, length $path) ne $path |
|
266
|
0 |
0 |
unless -d $candidate |
|
267
|
0 |
0 |
if length $candidate > 0 and substr($candidate, -1) ne "/" |