| 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')
}
} |
|
33
|
198 |
6 |
unless defined $$config{"help:$parm"} |
|
71
|
0 |
80 |
unless $desc |
|
72
|
76 |
4 |
$maxlen ? : |
|
73
|
57 |
23 |
$$desc{'abstract'} ? : |
|
80
|
0 |
55 |
unless $desc |
|
95
|
1 |
54 |
unless defined $$desc{'help'} |
|
107
|
0 |
125 |
if $c eq '' or not $self->_table->get_command($c) |
|
116
|
28 |
11 |
unless $self->_table->has_aliases |
|
137
|
24 |
52 |
if $len > $maxlen |
|
146
|
20 |
13 |
if (_is_missing($arg)) |
|
149
|
1 |
19 |
if $$self{'pre_hint'} |
|
153
|
1 |
19 |
if $$self{'post_hint'} |
|
157
|
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') { } |
|
186
|
13 |
15 |
if (_is_missing($arg)) |
|
188
|
1 |
12 |
if $$self{'pre_help'} |
|
196
|
1 |
12 |
if $$self{'post_help'} |
|
200
|
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') { } |
|
237
|
16 |
71 |
unless defined $$desc{'clue'} |
|
238
|
87 |
0 |
unless defined $$desc{'hint'} |
|
239
|
18 |
69 |
unless defined $$desc{'help'} |
|
246
|
92 |
31 |
if $_ ne 'hint' |