| blib/lib/Abstract/Meta/Attribute.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 68 | 0 | 242 | unless 'Abstract::Meta::Attribute'->can($k) |
| 71 | 0 | 56 | unless my $name = $args{'name'} |
| 72 | 3 | 53 | $args{'transistent'} ? : |
| 75 | 2 | 54 | if ($storage_type eq 'Array') |
| 81 | 0 | 56 | unless $type and $supported_type{$type} |
| 85 | 19 | 26 | if not exists $args{'data_type_validation'} and $type eq '@' || $type eq '%' || $args{'associated_class'} |
| 93 | 2 | 54 | $storage_type eq 'Array' ? : |
| 104 | 48 | 8 | unless ($args{'default'}) |
| 105 | 9 | 39 | if ($type eq '%') { } |
| 9 | 30 | elsif ($type eq '@') { } |