Branch Coverage

blib/lib/Object/Destroyer.pm
Criterion Covered Total %
branch 26 30 86.6


line true false branch
30 1 46 if (ref $_[0])
43 24 22 if (ref $ref eq 'CODE') { }
21 1 elsif (my $class = &blessed($ref)) { }
53 1 20 if ref $method
55 2 18 unless $class->can($method)
65 2 40 if @_
78 16 0 if (my $object = $$self{'object'})
79 10 6 if (my $function = $object->can($method)) { }
6 0 elsif ($object->can('AUTOLOAD')) { }
94 3 3 if (wantarray) { }
3 0 elsif (defined wantarray) { }
131 1 41 if ($$self{'dismissed'}) { }
23 18 elsif ($$self{'code'}) { }
16 2 elsif (my $object = $$self{'object'}) { }
160 6 0 if $$self{'object'}