| blib/lib/YA/CLI/ActionRole.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 20 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 2 | 2 | if $self->can($_) |
| 39 | 2 | 5 | if %$args |
| 64 | 13 | 17 | if &none(sub { $action eq $_; } , $self->action) |
| 66 | 4 | 13 | if ($self->can("subaction")) |
| 67 | 0 | 4 | unless defined $subaction |
| 70 | 4 | 9 | defined $subaction ? : |
| 76 | 3 | 6 | $message ? : |
| 97 | 2 | 9 | if (my $pod = $self->usage_pod) |
| 98 | 2 | 0 | $pod == 1 ? : |
| 100 | 2 | 9 | $podfile ? : |