| blib/lib/Class/Accessor/Validated.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 18 | 94.4 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 6 | 0 | ref $args[0] ? : |
| 32 | 9 | 1 | if $follows_best_practice or $follows_bad_practice |
| 44 | 24 | 8 | unless $attr_ref |
| 52 | 6 | 8 | unless $required_keys{$maybe_required_key} |
| 53 | 6 | 2 | if exists $arg_ref->{$maybe_required_key} |
| 59 | 1 | 5 | if (@bad_keys) |
| 63 | 2 | 4 | if (@missing_required_keys) |
| 67 | 3 | 3 | if (@errors) |
| 96 | 8 | 32 | if $seen{$current} |