| blib/lib/Devel/TakeHashArgs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 0 | unless get_args_as_hash($in_args, \my(%args), $opts, $mandatory_opts, $valid_opts) |
| 31 | 7 | 2 | unless defined $valid_opts |
| 34 | 1 | 8 | if @$in_args & 1 and $@ = 'Must have correct number of arguments' |
| 41 | 1 | 7 | unless $opts |
| 48 | 1 | 1 | unless (exists $$out_args{$_}) |
| 54 | 2 | 5 | if (@$valid_opts) |
| 58 | 1 | 1 | unless ($valid{$_}) |