Branch Coverage

blib/lib/App/Rakubrew/Shell.pm
Criterion Covered Total %
branch 9 90 10.0


line true false branch
25 0 18 if (not shell_exists("Dummy self", $shell) or $shell eq "auto")
30 0 18 if ($@)
38 0 0 if ($^O =~ /win32/i) { }
41 0 0 if ($psmodpath =~ /\\Documents\\(?:Windows)?PowerShell\\Modules(?:;|$)/) { }
54 0 0 if ($shell eq "csh" and env("tcsh"))
60 0 0 unless (shell_exists("Dummy self", $shell))
82 0 18 $@ ? :
92 0 0 $^O =~ /win32/i ? :
94 0 0 if ($command eq 'shell' and @params) { }
0 0 elsif ($command eq 'mode' and $mode eq 'shim') { }
0 0 elsif ($mode eq 'env') { }
96 0 0 if ($params[0] eq '--unset') { }
0 0 elsif (not is_version_broken($params[0])) { }
113 0 0 if ($mode eq "env")
117 0 0 if ($version ne "system")
118 0 0 if ($version eq "--unset")
122 0 0 if is_version_broken($version)
128 0 0 if ($path ne env("PATH"))
139 0 1 $^O =~ /win32/i ? :
143 1 2 if $version eq "system"
144 1 1 if is_version_broken($version)
155 0 1 if $also_clean_path
181 0 0 if $word =~ /(^|\W)$App::Rakubrew::Shell::brew_name$/
220 0 0 if ($index <= 0) { }
0 0 elsif ($index == 1 and $words[0] eq 'version' || $words[0] eq 'current') { }
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 'exec') { }
0 0 elsif ($index == 2 and $words[0] eq 'exec' and $words[1] eq '--with') { }
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') { }
221 0 0 $index < 0 || !$words[0] ? :
231 0 0 if $words[0] eq "test"
232 0 0 if $words[0] eq "shell"
250 0 0 if ($_ =~ /^\Q$words[1]\E-(.*)$/) { }
260 0 0 if ($_ =~ /^\Q$words[1]\E-(.*)$/) { }
278 0 0 unless opendir my $dh, $basepath
281 0 0 if $entry =~ /^\./
282 0 0 if substr($candidate, 0, length $path) ne $path
283 0 0 unless -d $candidate
284 0 0 if length $candidate > 0 and substr($candidate, -1) ne "/"