| blib/lib/YATT/Lite/Partial.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 29 | 133 | if ($key =~ /^-(.*)/) { } |
| 36 | 0 | 29 | unless my $sub = $meta->can("declare_$1") |
| 41 | 81 | 52 | if (my $sub = $meta->can("declare_$key")) { } |
| 51 | 1 | elsif ($$fields{"cf_$key"}) { } | |
| 53 | 153 | 81 | unless my $value = delete $define{$key} |
| 108 | 63 | 43 | if (my(@requires) = lexpand($partial->{'cf_requires'})) |
| 110 | 0 | 63 | if @missing |
| 117 | 12 | 94 | if (my $entns = $partial->{'has_entns'}) |