| blib/lib/Attribute/Contract/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 12 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 0 | 8 | unless defined $attributes |
| 18 | 7 | 8 | if ($key eq '-types') { } |
| 0 | 8 | elsif ($key eq '-library') { } | |
| 20 | 7 | 0 | ref $$import{$key} ? : |
| 25 | 0 | 0 | ref $lib ? : |
| 31 | 0 | 8 | unless my $ref = eval "$prefix; Type::Params::compile($attributes)" |