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上で動作するようです：

called_as_method($level)

called_as_method returns真$levelでサブルーチンが呼び出された場合方法として。

#!/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 
    } 
}