如何在词汇上关闭Perl的AUTOLOAD子程序？

Question

我被遗留在使用Perl AUTOLOAD子程序的遗留代码中.每个未映射/未定义的子例程都将由AUTOLOAD.处理.是否可以AUTOLOAD在词汇环境中禁用处理？

此解决方案不起作用:

# ENTER CODE HERE
{
  # Turn off AUTOLOAD for this block.
  local *AUTOLOAD;
  undef *AUTOLOAD;

  # ENTER CODE HERE
}
# ENTER CODE HERE

Answer 1

AUTOLOAD特定于相关包.所以重新定义包方法:

#!/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()通话线路)