| blib/lib/Method/WeakCallback.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 12 | 25.0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 27 | 0 | 0 | 3 | @_ > 2 or not defined $method |
| 30 | 1 | 2 | 0 | $cached{$object}{$method} ||= do { weaken $object; sub { defined $object ? $object->$method(@_) : (); } } |
| 39 | 0 | 0 | 0 | @_ > 2 or not defined $method |
| 42 | 0 | 0 | 0 | $static{$object}{$method} ||= do { weaken $object; croak("object $object does not have method '${method}'") unless my $sub = $object->can($method); sub { defined $object ? &$sub($object, @_) : (); } } |