use Safe; package userMath::Math::Complex; sub AUTOLOAD { print "AUTOLOAD $AUTOLOAD\n"; # test require '/usr/lib/perl5/5.8.0/Math/Complex.pm'; *Math::Complex::AUTOLOAD = sub { die "Method undefined\n" }; $AUTOLOAD =~ s/userMath//; goto &$AUTOLOAD; } sub DESTROY {}