Perl에서 서브 루틴이 메소드로 호출되었는지 어떻게 확인할 수 있습니까?

Question

서브 루틴이 메소드 (@ISA 프로빙)로 호출되는지 또는 일반 서브 루틴으로 호출되는지 여부를 판별하는 방법이 있습니까? 아마도 어떤 종류의 확장 모듈 super-caller()? 어떻게 func() 다음과 같은 두 가지 호출을 구별 할 수

package Ad::Hoc; 

sub func() { ... } 

을 부여 예를 들어

는 :

Ad::Hoc->func;   # or $obj->func 

Ad::Hoc::func('Ad::Hoc'); # or func($obj) 

(내가 아는 한,이 작업을 수행하는 욕망은 가난한 디자인 ™의 가능성이 표시입니다.)

Answer 1

Devel::Caller이 도움이되는지 확인하십시오. 나는 객체에 func를 호출하는 코드를 변경하며 perl 5.14.3 (및 5.24.0) 내 Mac에서 작동하는 것 같다 : $level에서 서브 루틴이

called_as_method($level)

called_as_method returns를 불렀다 경우는 true 방법으로.

#!/usr/bin/env perl 

package Ad::Hoc; 
use strict; use warnings; 

use Devel::Caller qw(called_as_method); 

sub func { 
    printf "%s\n", called_as_method(0) ? 'method' : 'function'; 
    return; 
} 

package main; 
use strict; use warnings; 

Ad::Hoc->func; 
Ad::Hoc::func(); 

출력 :

method 
function

Answer 2

package Ad::Hoc; 

sub foo { 
    my $self = shift; 
    if(ref($self) ne 'Ad::Hoc') { 
     unshift @_, $self; 
     undef $self; 
    } 

    if($self) { 
     # I'm a method 
    } else { 
     # I'm a sub 
    } 
}