| blib/lib/YATT/Lite/Partial.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 19 | 93 | if ($key =~ /^-(.*)/) { } |
| 36 | 0 | 19 | unless my $sub = $meta->can("declare_$1") |
| 41 | 58 | 35 | if (my $sub = $meta->can("declare_$key")) { } |
| 34 | 1 | elsif ($$fields{"cf_$key"}) { } | |
| 53 | 107 | 58 | unless my $value = delete $define{$key} |
| 108 | 40 | 31 | if (my(@requires) = lexpand($partial->{'cf_requires'})) |
| 110 | 0 | 40 | if @missing |
| 117 | 7 | 64 | if (my $entns = $partial->{'has_entns'}) |