#!/usr/bin/perl
#

{
    package autoloading;

    sub AUTOLOAD {
        print "YEAH ${AUTOLOAD}!\n";
    }

    sub new {
        return bless {},$_[0];
    }
}

$obj = new autoloading();

$obj->foo();

*{autoloading::AUTOLOAD} = sub {};

$obj->bar();

产生输出：

YEAH autoloading::foo!

($obj-> bar()调用没有行)