| lib/Object/Wrapper.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 14 | 42.8 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 0 | 3 | unless my $sub = $$franger[0]->can($name) |
| 47 | 0 | 8 | unless my $cleanup = $cleanupz{$class} || $franger->can('cleanup') |
| 50 | 8 | 0 | ref $cleanup ? : |
| 0 | 8 | unless my $sub = ref $cleanup ? $cleanup : $franger->can($cleanup) | |
| 56 | 0 | 8 | unless 'CODE' eq reftype $sub |
| 73 | 0 | 8 | unless my $object = shift() |
| 85 | 0 | 0 | if @_ |