Wie kann ich in Perl feststellen, ob eine Subroutine als Methode aufgerufen wurde?

Question

Gibt es eine Möglichkeit festzustellen, ob eine Subroutine als Methode (mit @ISA probing) oder als einfache Subroutine aufgerufen wird? Vielleicht mit einer Art von Erweiterungsmodul super- caller()?

Zum Beispiel gegeben

package Ad::Hoc; 

sub func() { ... } 

Wie kann func() zwischen den beiden folgenden Anrufungen unterscheiden:

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

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

(ich weiß, der Wunsch, dies zu tun, ist eine Likely Anzeige Poor Design ™.)

Answer 1

Sehen Sie, ob Devel::Caller hilft. Ich änderte den Code func auf ein Objekt aufzurufen, und es scheint, mit perl 5.14.3 (und 5.24.0) auf meinem Mac zu arbeiten:

called_as_method($level)

called_as_method returns true, wenn das Unterprogramm bei $level genannt wurde als eine Methode.

#!/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(); 

Ausgang:

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 
    } 
}