Branch Coverage

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


line true false branch
28 1 47 if (ref $_[0])
41 25 22 if (ref $ref eq 'CODE') { }
21 1 elsif (my $class = &blessed($ref)) { }
51 1 20 if ref $method
53 2 18 unless $class->can($method)
63 2 41 if @_
76 18 2 if (my $object = $self->{'object'})
77 10 8 if (my $function = $object->can($method)) { }
7 1 elsif ($object->can('AUTOLOAD')) { }
92 3 4 if (wantarray) { }
3 1 elsif (defined wantarray) { }
130 1 43 if ($self->{'dismissed'}) { }
24 19 elsif ($self->{'code'}) { }
16 3 elsif (my $object = $self->{'object'}) { }
159 7 3 if $self->{'object'}