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() 호출에 대한 라인 없음)