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)" |