blib/lib/Object/Trampoline.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 9 | 14 | 64.2 |
line | true | false | branch |
---|---|---|---|
62 | 3 | 7 | unless $proto |
107 | 3 | 1 | unless $proto |
116 | 0 | 1 | if /\W/u |
136 | 1 | 0 | unless eval "$init" |
184 | 0 | 7 | unless $_[0] = $_[0]->() |
187 | 0 | 7 | unless my $class = blessed($_[0]) |
192 | 7 | 0 | if (my $sub = $class->can($method)) { } |