| blib/lib/Kelp/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 14 | 92.8 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 130 | 442 | if $class ne "Kelp::Base" |
| 18 | 376 | 66 | if ($base ne "-strict") |
| 24 | 89 | 287 | unless $base->can("new") |
| 46 | 0 | 1554 | if (ref $default and ref $default ne "CODE") |
| 57 | 1937 | 15010 | if (@_ > 1 and not $readonly) |
| 60 | 14960 | 1987 | if exists $_[0]{$name} |
| 61 | 1048 | 939 | ref $default eq 'CODE' ? : |