| line |
true |
false |
branch |
|
47
|
0 |
0 |
unless (-d $App::Rakubrew::prefix) |
|
48
|
0 |
0 |
unless mkdir $App::Rakubrew::prefix |
|
51
|
0 |
0 |
unless -d catdir($App::Rakubrew::prefix, "bin") |
|
52
|
0 |
0 |
unless -d catdir($App::Rakubrew::prefix, "update") |
|
53
|
0 |
0 |
unless -d catdir($App::Rakubrew::prefix, "repos") |
|
54
|
0 |
0 |
unless -d $App::Rakubrew::shim_dir |
|
55
|
0 |
0 |
unless -d $App::Rakubrew::versions_dir |
|
56
|
0 |
0 |
unless -d $App::Rakubrew::git_reference |
|
62
|
0 |
0 |
if ($prog_name ne $App::Rakubrew::brew_name and !($^O =~ /win32/i) || $prog_name =~ /^\Q$App::Rakubrew::brew_name\E\z/i) |
|
70
|
0 |
0 |
if @args >= 2 and $args[0] eq "internal_shell_hook" |
|
71
|
0 |
0 |
if @args >= 2 and $args[0] eq "internal_hooked" |
|
72
|
0 |
0 |
if @args >= 2 and $args[0] eq "init" |
|
76
|
0 |
0 |
if (@args >= 2 and $args[0] eq 'internal_hooked') { } |
|
|
0 |
0 |
elsif (get_brew_mode() eq 'env' and not @args && $args[0] eq 'mode' && $args[1] eq 'shim' and not @args && $args[0] eq 'init' and not @args && $args[0] eq 'home' and not @args && $args[0] =~ /^internal_/ or @args and $args[0] eq 'shell' or @args >= 2 and $args[0] eq 'mode' and $args[1] eq 'env') { } |
|
98
|
0 |
0 |
if ($arg eq 'version' or $arg eq 'current') { } |
|
|
0 |
0 |
elsif ($arg eq 'versions' or $arg eq 'list') { } |
|
|
0 |
0 |
elsif ($arg eq 'global' or $arg eq 'switch') { } |
|
|
0 |
0 |
elsif ($arg eq 'shell') { } |
|
|
0 |
0 |
elsif ($arg eq 'local') { } |
|
|
0 |
0 |
elsif ($arg eq 'nuke' or $arg eq 'unregister') { } |
|
|
0 |
0 |
elsif ($arg eq 'rehash') { } |
|
|
0 |
0 |
elsif ($arg eq 'list-available' or $arg eq 'available') { } |
|
|
0 |
0 |
elsif ($arg eq 'build-rakudo' or $arg eq 'build') { } |
|
|
0 |
0 |
elsif ($arg eq 'triple') { } |
|
|
0 |
0 |
elsif ($arg eq 'download-rakudo' or $arg eq 'download') { } |
|
|
0 |
0 |
elsif ($arg eq 'register') { } |
|
|
0 |
0 |
elsif ($arg eq 'build-zef') { } |
|
|
0 |
0 |
elsif ($arg eq 'build-panda') { } |
|
|
0 |
0 |
elsif ($arg eq 'exec') { } |
|
|
0 |
0 |
elsif ($arg eq 'which') { } |
|
|
0 |
0 |
elsif ($arg eq 'whence') { } |
|
|
0 |
0 |
elsif ($arg eq 'mode') { } |
|
|
0 |
0 |
elsif ($arg eq 'self-upgrade') { } |
|
|
0 |
0 |
elsif ($arg eq 'init') { } |
|
|
0 |
0 |
elsif ($arg eq 'home') { } |
|
|
0 |
0 |
elsif ($arg eq 'test') { } |
|
|
0 |
0 |
elsif ($arg eq 'internal_shell_hook') { } |
|
|
0 |
0 |
elsif ($arg eq 'internal_win_run') { } |
|
|
0 |
0 |
elsif ($arg eq 'internal_update') { } |
|
|
0 |
0 |
elsif ($arg eq 'rakubrew-version') { } |
|
99
|
0 |
0 |
if (my $c = get_version()) { } |
|
110
|
0 |
0 |
if is_version_broken($_) |
|
111
|
0 |
0 |
$_ eq $cur ? : |
|
113
|
0 |
0 |
if is_registered_version($_) |
|
118
|
0 |
0 |
if (not @args) { } |
|
120
|
0 |
0 |
if ($version) { } |
|
134
|
0 |
0 |
if (not @args) { } |
|
136
|
0 |
0 |
if (defined $shell_version) { } |
|
145
|
0 |
0 |
if ($version ne "--unset") |
|
152
|
0 |
0 |
if (not @args) { } |
|
154
|
0 |
0 |
if ($version) { } |
|
163
|
0 |
0 |
if ($version eq '--unset') { } |
|
190
|
0 |
0 |
grep({$_->{'ver'} eq $ver;} @downloadables) ? : |
|
191
|
0 |
0 |
$cur_rakudo eq $ver ? : |
|
198
|
0 |
0 |
$cur_backend eq $_ ? : |
|
203
|
0 |
0 |
unless ($ver) |
|
209
|
0 |
0 |
if ($impl eq 'panda') { } |
|
|
0 |
0 |
elsif ($impl eq 'zef') { } |
|
|
0 |
0 |
elsif (not exists $App::Rakubrew::impls{$impl}) { } |
|
213
|
0 |
0 |
unless ($version) |
|
223
|
0 |
0 |
if ($impl eq 'parrot') { } |
|
233
|
0 |
0 |
if (@args and $args[0] =~ /^--configure-opts=/) |
|
241
|
0 |
0 |
if $impl eq "moar-blead" and $ver eq "main" |
|
243
|
0 |
0 |
if ($impl and $impl eq 'all') { } |
|
253
|
0 |
0 |
if (get_version() eq "system") |
|
265
|
0 |
0 |
if (get_version() eq "system") |
|
274
|
0 |
0 |
unless (exists $App::Rakubrew::impls{$impl}) |
|
283
|
0 |
0 |
if (get_version() eq "system") |
|
289
|
0 |
0 |
unless ($name and $path) |
|
293
|
0 |
0 |
if (version_exists($name)) |
|
304
|
0 |
0 |
if is_version_path_broken($path) |
|
312
|
0 |
0 |
unless ($version) |
|
330
|
0 |
0 |
if (not @args) { } |
|
335
|
0 |
0 |
unless ($version) |
|
343
|
0 |
0 |
if (not @args) { } |
|
349
|
0 |
0 |
$pathmode ? : |
|
354
|
0 |
0 |
if (not @args) { } |
|
372
|
0 |
0 |
if (not $version) { } |
|
|
0 |
0 |
elsif ($version eq 'all') { } |
|
385
|
0 |
0 |
if (my $ref = $self->{'hook'}->can($sub)) |
|
402
|
0 |
0 |
if ($suffix =~ /^\\\.\(exe\|bat\|cmd\)\z/i) { } |
|
|
0 |
0 |
elsif ($suffix =~ /^\\\.nqp\z/i) { } |
|
412
|
0 |
0 |
if ($first_line =~ /#!.*(perl6|raku)/) { } |
|
|
0 |
0 |
elsif ($first_line =~ /#!.*perl/) { } |
|
436
|
0 |
0 |
if ($_ eq '-v' or $_ eq '--verbose') { } |
|
443
|
0 |
0 |
if ($arg eq 'help' and @args) { } |
|
447
|
0 |
0 |
if $command eq "download" |
|
448
|
0 |
0 |
if $command eq "build" |
|
462
|
0 |
0 |
if $help_text =~ /\A\s*\Z/ |
|
466
|
0 |
0 |
$verbose ? : |
|
484
|
0 |
0 |
unless ($version) |
|
490
|
0 |
0 |
if (grep {$_ eq $version;} get_versions()) { } |
|
496
|
0 |
0 |
if (@match) |
|
509
|
0 |
0 |
unless (-d $v_dir) |
|
516
|
0 |
0 |
unless (-f "Makefile") |
|
529
|
0 |
0 |
if (is_registered_version($matched)) { } |
|
|
0 |
0 |
elsif ($matched eq 'system') { } |
|
|
0 |
0 |
elsif ($matched eq get_version()) { } |
|
553
|
0 |
0 |
if (@_) { } |
|
589
|
0 |
0 |
if ($App::Rakubrew::distro_format eq "macos" or $App::Rakubrew::distro_format eq "macos_arm") |