| blib/lib/App/CmdDispatch/Table.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 26 | 26 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 2 | 60 | unless ref $commands eq ref {} |
| 14 | 1 | 59 | unless keys %{$commands;} |
| 15 | 1 | 58 | unless ref $aliases eq ref {} |
| 32 | 5 | 49 | if not defined $cmd or $cmd eq '' |
| 35 | 2 | 47 | if (exists $self->{'alias'}{$cmd}) |
| 41 | 2 | 47 | unless $self->{'cmds'}{$cmd} |
| 52 | 1 | 129 | if $key eq '' |
| 53 | 1 | 128 | unless (defined $val) |
| 58 | 2 | 126 | unless ref $val eq ref {} |
| 59 | 4 | 122 | unless ref $val->{'code'} eq 'CODE' |
| 73 | 1 | 22 | if $key eq '' |
| 74 | 1 | 21 | unless (defined $val) |
| 79 | 2 | 19 | if ref $val |