| line |
true |
false |
branch |
|
60
|
55 |
220 |
if exists $excluded_cmd_vars->{$field} and $excluded_cmd_vars->{$field} == 2
|
|
62
|
220 |
0 |
index('$@', $sigil) >= 0 ? :
|
|
63
|
165 |
55 |
if ($sigil eq '$')
|
|
67
|
165 |
0 |
if exists $excluded_cmd_vars->{$field} or exists $self->{$lc_field}
|
|
73
|
14 |
41 |
@ary ? :
|
|
77
|
55 |
0 |
if $short_help
|
|
87
|
0 |
631 |
unless -r $pm
|
|
90
|
0 |
631 |
if not $rc or $rc eq 'Skip me!'
|
|
94
|
167 |
464 |
if (-d 'File::Spec'->catfile(dirname($pm), $basename . '_Subcmd')) { }
|
|
100
|
631 |
0 |
if (eval "require '${pm}'; 1") { }
|
|
126
|
55 |
0 |
if (-d $subcmd_dir)
|
|
141
|
631 |
0 |
if (eval $new_cmd) { }
|
|
158
|
0 |
0 |
if scalar @_ < 3
|
|
160
|
0 |
0 |
if (not $self->{'proc'}{'settings'}{'abbrev'}) { }
|
|
|
0 |
0 |
elsif ($use_regexp) { }
|
|
171
|
0 |
0 |
if (&$compare($subcmd_name) and length $subcmd_prefix >= $subcmd->{'min_abbrev'})
|
|
176
|
0 |
0 |
if (scalar @candidates == 1)
|
|
186
|
0 |
0 |
unless defined $label
|
|
188
|
0 |
0 |
if ($entry) { }
|
|
190
|
0 |
0 |
if $label
|
|
191
|
0 |
0 |
if ($entry->exist->{'short_help'})
|
|
192
|
0 |
0 |
if $prefix
|
|
219
|
0 |
0 |
if (scalar @$args <= 2)
|
|
229
|
0 |
0 |
if ('*' eq $subcmd_name)
|
|
239
|
0 |
0 |
if (defined $cmd) { }
|
|
240
|
0 |
0 |
if ($cmd->can('help')) { }
|
|
249
|
0 |
0 |
if (0 == scalar @matches) { }
|
|
|
0 |
0 |
elsif (1 == scalar @matches) { }
|
|
290
|
0 |
0 |
if ($args_len < 2 or $args_len == 2 and $args->[-1] eq '*')
|
|
299
|
0 |
0 |
if ($subcmd) { }
|
|
300
|
0 |
0 |
if ($self->{'proc'}->ok_for_running($subcmd, $subcmd->{'cmd_str'}, $args_len - 2))
|