| blib/lib/Class/Light.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 1 | if $class eq 'Class::Light' |
| 36 | 1 | 0 | if exists &$init |
| 52 | 0 | 6 | unless $type and $attr |
| 58 | 0 | 6 | if ($method eq $type . $attr and $origAttr eq $attr) |
| 63 | 0 | 6 | unless ($type and not $attr =~ /^_/ and exists $_[0]{$attr}) |
| 78 | 4 | 6 | if (exists &$_) |
| 84 | 1 | 1 | if ($type =~ /^get/) { } |
| 1 | 0 | elsif ($type =~ /^set/) { } |