| line |
true |
false |
branch |
|
54
|
167 |
1503 |
if exists $excluded_cmd_vars->{$field} and $excluded_cmd_vars->{$field} == 2
|
|
56
|
1503 |
0 |
index('$@', $sigil) >= 0 ? :
|
|
57
|
1169 |
334 |
if ($sigil eq '$')
|
|
63
|
0 |
167 |
@ary ? :
|
|
66
|
0 |
167 |
if $short_help
|
|
91
|
167 |
0 |
if (-d $subcmd_dir)
|
|
99
|
0 |
431 |
if (-d 'File::Spec'->catfile(dirname($pm), $basename . '_Subcmd')) { }
|
|
107
|
0 |
431 |
if ($rc eq 'Skip me!') { }
|
|
|
431 |
0 |
elsif ($rc) { }
|
|
128
|
431 |
0 |
if (eval $new_cmd) { }
|
|
144
|
0 |
0 |
if scalar @_ < 3
|
|
146
|
0 |
0 |
if (not $self->{'proc'}{'settings'}{'abbrev'}) { }
|
|
|
0 |
0 |
elsif ($use_regexp) { }
|
|
157
|
0 |
0 |
if (&$compare($subcmd_name))
|
|
162
|
0 |
0 |
if (scalar @candidates == 1)
|
|
172
|
0 |
0 |
unless defined $label
|
|
174
|
0 |
0 |
if ($entry) { }
|
|
176
|
0 |
0 |
if $label
|
|
177
|
0 |
0 |
if ($entry->exist->{'short_help'})
|
|
178
|
0 |
0 |
if $prefix
|
|
208
|
0 |
0 |
if (scalar @$args <= 3)
|
|
218
|
0 |
0 |
if ('*' eq $subcmd_name)
|
|
231
|
0 |
0 |
if (defined $cmd) { }
|
|
232
|
0 |
0 |
if ($cmd->can('help')) { }
|
|
242
|
0 |
0 |
if (0 == scalar @matches) { }
|
|
|
0 |
0 |
elsif (1 == scalar @matches) { }
|
|
283
|
0 |
0 |
if ($args_len < 3 or $args_len == 3 and $args->[-1] eq '*')
|
|
292
|
0 |
0 |
if ($subcmd) { }
|
|
293
|
0 |
0 |
if ($self->{'proc'}->ok_for_running($subcmd, $subcmd->{'cmd_str'}, $args_len - 3))
|