| blib/lib/Object/Trampoline.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 12 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 54 | 3 | 7 | unless $proto |
| 96 | 3 | 1 | unless $proto |
| 112 | 1 | 0 | unless eval "$init" |
| 162 | 0 | 11 | unless $_[0] = $_[0]->() |
| 165 | 0 | 11 | unless my $class = &blessed($_[0]) |
| 170 | 11 | 0 | if (my $sub = $class->can($method)) { } |