BEGIN {
    use Carp;
    no strict 'refs';
    *{"bbb::()"} = sub {confess};
}

##</code><code>##

Recursive inheritance detected while looking for method '(abs' in package 'bbb'.

##</code><code>##

(/opt/perl/lib/5.8.6/base.pm:74)        Looking for method isa in package aaa
(/opt/perl/lib/5.8.6/base.pm:74)        Looking for method isa in package UNIVERSAL
(/opt/perl/lib/5.8.6/base.pm:74)        Looking for method isa in package bbb
(/opt/perl/lib/5.8.6/base.pm:74)        Looking for method isa in package UNIVERSAL

EXECUTING...

(xx:0)  Recalcing overload magic in package bbb
(xx:0)  Looking for method () in package bbb
(xx:0)  Looking for method () in package aaa
(xx:0)  Looking for method () in package bbb
(xx:0)  Looking for method () in package aaa
....
(xx:0)  Looking for method () in package bbb
(xx:0)  Looking for method () in package aaa
Recursive inheritance detected while looking for method '()' in package 'bbb'.
(xx:0)  Recalcing overload magic in package IO::Handle
(xx:0)  Looking for method () in package IO::Handle
(xx:0)  Looking for method () in package UNIVERSAL
(xx:0)  Checking overloading of `DESTROY' in package `IO::Handle'
(xx:0)  Looking for method DESTROY in package IO::Handle
(xx:0)  Looking for method DESTROY in package UNIVERSAL
(xx:0)  Looking for method AUTOLOAD in package IO::Handle
(xx:0)  Looking for method AUTOLOAD in package UNIVERSAL