| line |
true |
false |
branch |
|
62
|
0 |
15 |
unless () = $command_path =~ m[ (.*) / ([^/]+) $ ]ux |
|
63
|
0 |
15 |
unless () = abs_path($0) =~ m[ (.*) / ([^/]+) $ ]ux |
|
69
|
0 |
15 |
unless my $HOME = $ENV{'HOME'} |
|
78
|
0 |
67 |
utf8::is_utf8($_) ? : |
|
87
|
15 |
0 |
if (ref $nomodule eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $nomodule eq 'HASH') { } |
|
114
|
0 |
15 |
if (my $mod_path = $ENV{$env_MODULE_PATH}) { } |
|
129
|
0 |
15 |
if ($cmd_name ne $abs_name) { } |
|
133
|
11 |
1 |
if (@ARGV) { } |
|
146
|
0 |
11 |
if (my $alias = $alias->{$target_name}) |
|
148
|
0 |
0 |
if (ref $alias eq 'ARRAY') { } |
|
154
|
0 |
0 |
if ($name ne "") |
|
160
|
0 |
11 |
if ($nomodule{$target_name}) |
|
172
|
0 |
11 |
if ($mod_arg and @ARGV > 0 and $ARGV[0] eq $mod_opt) |
|
180
|
11 |
0 |
unless ($no_operation) |
|
187
|
0 |
11 |
unless (defined $exec_name) |
|
192
|
0 |
11 |
if $debug |
|
200
|
0 |
15 |
if (defined $exit_code) { } |
|
|
11 |
4 |
elsif (defined $status) { } |
|
214
|
0 |
26 |
if $debug |
|
219
|
0 |
11 |
if $new =~ m[/]u and -x $new |
|
227
|
70 |
11 |
unless -x $candidate |
|
228
|
0 |
11 |
if $path eq $cmd_dir and $new eq $cmd_name |
|
231
|
0 |
11 |
if $cand_abs eq $self_abs |
|
268
|
0 |
14 |
unless &GetOptionsFromArray($argv, $opt->optspec, $rcloader->builtins) |
|
270
|
0 |
14 |
if ($opt->man) { } |
|
|
2 |
12 |
elsif ($opt->version) { } |
|
|
0 |
12 |
elsif ($opt->link or $opt->unlink) { } |
|
|
0 |
12 |
elsif ($opt->ls) { } |
|
|
0 |
12 |
elsif ($opt->rc) { } |
|
|
0 |
12 |
elsif ($opt->M) { } |
|
300
|
0 |
0 |
unless -d $bin_dir |
|
306
|
0 |
0 |
if ($op->{'link'}) { } |
|
|
0 |
0 |
elsif ($op->{'unlink'}) { } |
|
307
|
0 |
0 |
if (-f $link) |
|
308
|
0 |
0 |
unless symlink $script_path, $link |
|
312
|
0 |
0 |
unless (-l $link) |
|
313
|
0 |
0 |
if ((my $name = readlink $link) ne $script_path) |
|
314
|
0 |
0 |
unless ($op->{'force'}) |
|
321
|
0 |
0 |
unless unlink $link |
|
333
|
0 |
0 |
unless my $dir = "IO::Dir"->new($bin_dir) |
|
349
|
0 |
0 |
if (-l $path) |
|
351
|
0 |
0 |
$op->{'path'} ? : |
|
352
|
0 |
0 |
if ($op->{'long'}) |
|
365
|
0 |
0 |
unless -f $path |
|
371
|
0 |
0 |
ref $val eq 'ARRAY' ? : |
|
374
|
0 |
0 |
if ($op->{'long'}) |
|
388
|
0 |
0 |
unless my $dir = "IO::Dir"->new($config_dir) |
|
390
|
0 |
0 |
unless %rc == 0 |
|
391
|
0 |
0 |
@rc ? : |
|
398
|
0 |
0 |
if ($op->{'cat'}) { } |
|
400
|
0 |
0 |
unless (my $fh = "IO::File"->new($path)) |
|
405
|
0 |
0 |
if @dirent > 1 |
|
410
|
0 |
0 |
$op->{'long'} ? : |
|
437
|
0 |
0 |
@_ ? : |
|
446
|
0 |
0 |
unless @module |