lib/CLI/Dispatch.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 6 | 10 | 60.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
128 | 40 | 15 | 27 | $command->isa('CLI::Dispatch::Help') and @ARGV |
line | l | !l | condition |
---|---|---|---|
86 | 20 | 0 | $_ || 'Obscure error' |
143 | 0 | 0 | $_ || 'Obscure error' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
21 | 72 | 9 | 0 | shift @ARGV || $self->default_command |