| blib/lib/Rope/Monkey.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 12 | 48 | 13 | unless $caller->CORE::can($key) |
| 13 | 60 | 1 | if ($build) |
| 15 | 12 | 108 | if ($meta->{$key}{$_}) |
| 16 | 4 | 8 | $_ eq 'predicate' ? : |
| 23 | 0 | 9 | $ref eq 'HASH' && $pred->{'name'} ? : |
| 3 | 9 | !($ref || $pred =~ /^\d+$/) ? : | |
| 24 | 12 | 0 | unless $caller->can($pred) |
| 41 | 20 | 56 | if not want(("LVALUE", "ASSIGN")) and ref $self->{$key} eq "CODE" |
| 42 | 0 | 56 | if defined $_[0] |
| 53 | 1 | 14 | if (ref $self) { } |