| blib/lib/MooX/Role/CliOptions.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 20 | 65.0 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 0 | 25 | unless my $argv = delete $args{'argv'} |
| 47 | 0 | 25 | unless ref $argv and ref $argv eq 'ARRAY' |
| 51 | 0 | 25 | unless ref $add_opts and ref $add_opts eq 'ARRAY' |
| 54 | 0 | 25 | if keys %args |
| 59 | 4 | 21 | unless &GetOptionsFromArray($argv, \%values, @options) |
| 60 | 0 | 25 | if $values{'help'} |
| 61 | 0 | 25 | if $values{'man'} |
| 70 | 4 | 12 | if defined $values{'debug'} and not defined $values{'verbose'} |
| 71 | 16 | 9 | unless ($ENV{'MRC_NO_STDOPTS'}) |
| 74 | 0 | 25 | if ($@) |