| blib/lib/Commandable/Command.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 26 | 88.4 |
| line | true | false | branch |
|---|---|---|---|
| 80 | 11 | 8 | if (my(%optspec) = $self->options) |
| 85 | 0 | 11 | if $token eq "--" |
| 90 | 6 | 5 | if ($token =~ s/^--([^=]+)(=|$)//u) { } |
| 1 | 4 | elsif ($token =~ s/^-(.)//u) { } | |
| 91 | 0 | 6 | unless $spec = $optspec{$1} |
| 95 | 0 | 1 | unless $spec = $optspec{$1} |
| 104 | 3 | 4 | if ($spec->mode eq "value") |
| 105 | 2 | 1 | $value_in_token ? : |
| 115 | 1 | 40 | if defined $spec->default |
| 121 | 7 | 6 | if (defined $val) { } |
| 1 | 5 | elsif (not $argspec->optional) { } | |
| 122 | 1 | 6 | if ($argspec->slurpy) |
| 165 | 3 | 4 | if $args{'name'} =~ s/:$//u |