| line |
true |
false |
branch |
|
12
|
2 |
37 |
unless ref $commands eq ref {} |
|
13
|
1 |
36 |
unless keys %{$commands;} |
|
14
|
1 |
35 |
unless ref $config eq ref {} |
|
15
|
1 |
34 |
unless eval {
do {
$owner->isa('App::CmdDispatch')
}
} |
|
34
|
198 |
6 |
unless defined $$config{"help:$parm"} |
|
72
|
0 |
80 |
unless $desc |
|
73
|
76 |
4 |
$maxlen ? : |
|
74
|
57 |
23 |
$desc->{'abstract'} ? : |
|
81
|
0 |
55 |
unless $desc |
|
96
|
1 |
54 |
unless defined $desc->{'help'} |
|
108
|
0 |
125 |
if $c eq '' or not $self->_table->get_command($c) |
|
121
|
5 |
9 |
if $len > $self->{'alias_len'} |
|
129
|
28 |
11 |
unless $self->_table->has_aliases |
|
151
|
24 |
52 |
if $len > $maxlen |
|
160
|
20 |
13 |
if (_is_missing($arg)) |
|
163
|
1 |
19 |
if $self->{'pre_hint'} |
|
167
|
1 |
19 |
if $self->{'post_hint'} |
|
171
|
4 |
9 |
if ($self->_table->get_command($arg)) { } |
|
|
1 |
8 |
elsif ($self->_table->get_alias($arg)) { } |
|
|
3 |
5 |
elsif ($arg eq 'commands') { } |
|
|
3 |
2 |
elsif ($arg eq 'aliases') { } |
|
200
|
13 |
15 |
if (_is_missing($arg)) |
|
202
|
1 |
12 |
if $self->{'pre_help'} |
|
210
|
1 |
12 |
if $self->{'post_help'} |
|
214
|
6 |
9 |
if ($self->_table->get_command($arg)) { } |
|
|
1 |
8 |
elsif ($self->_table->get_alias($arg)) { } |
|
|
3 |
5 |
elsif ($arg eq 'commands') { } |
|
|
3 |
2 |
elsif ($arg eq 'aliases') { } |
|
251
|
16 |
71 |
unless defined $desc->{'clue'} |
|
252
|
87 |
0 |
unless defined $desc->{'hint'} |
|
253
|
18 |
69 |
unless defined $desc->{'help'} |
|
260
|
92 |
31 |
if $_ ne 'hint' |