no strict 'refs';
delete ${"${class}::"}{"()"} if $MRO{$class}->{has_overload_fallback};
foreach my $method (keys %{$MRO{$class}->{methods}}) {
- ${"${class}::"}{$method}{CODE} = undef
- if defined ${"${class}::"}{$method}{CODE} &&
- ${"${class}::"}{$method}{CODE} eq $MRO{$class}->{methods}->{$method}->{code};
+ delete ${"${class}::"}{$method}
+ if defined *{"${class}::${method}"}{CODE} &&
+ (*{"${class}::${method}"}{CODE} eq $MRO{$class}->{methods}->{$method}->{code});
}
}
last unless $method_caller eq '(eval)';
}
my @label = (split '::', $method_caller);
- #my @label = (split '::', (caller(1))[3]);
my $label = pop @label;
my $caller = join '::' => @label;
my $self = $_[0];
---------------------------- ------ ------ ------ ------ ------ ------ ------
File stmt bran cond sub pod time total
---------------------------- ------ ------ ------ ------ ------ ------ ------
- Class/C3.pm 98.6 88.6 75.0 96.0 100.0 70.4 95.2
+ Class/C3.pm 98.6 90.9 73.3 96.0 100.0 96.8 95.3
---------------------------- ------ ------ ------ ------ ------ ------ ------
- Total 98.6 88.6 75.0 96.0 100.0 70.4 95.2
+ Total 98.6 90.9 73.3 96.0 100.0 96.8 95.3
---------------------------- ------ ------ ------ ------ ------ ------ ------
=head1 SEE ALSO