| blib/lib/Class/Data/Inheritable/Translucent.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 20 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 63 | 12 | 16 | ref $_[0] ? : |
| 66 | 1 | 9 | if @_ > 1 and not $obj and $wantclass ne $declaredclass |
| 69 | 12 | 15 | if ($obj) { } |
| 71 | 5 | 7 | if @_ > 1 |
| 72 | 6 | 6 | if defined $$attrs{$attribute} |
| 75 | 4 | 11 | if @_ > 1 |
| 82 | 5 | 1 | unless (defined &{$name;}) |
| 83 | 0 | 5 | if defined &subname |
| 91 | 5 | 1 | unless (defined &{$alias;}) |
| 92 | 0 | 5 | if defined &subname and not $subnamed |