In Perl, come posso determinare se una subroutine è stata invocata come metodo?

Question

C'è un modo per determinare se una subroutine è invocata come metodo (con probing @ISA) o come subroutine semplice? Forse con una sorta di modulo di estensione super- caller()?

Ad esempio, dato

package Ad::Hoc; 

sub func() { ... } 

Come può func() discriminare tra i due seguenti invocazioni:

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

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

(lo so, la voglia di fare questo è un'indicazione Probabile di cattiva progettazione ™.)

Answer 1

Vedere se Devel::Caller aiuta. Ho cambiato il codice per richiamare func su un oggetto e sembra funzionare sul mio Mac con perl 5.14.3 (e 5.24.0):

called_as_method($level)

called_as_method returns vero se la subroutine a $level è stato chiamato come metodo

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

uscita:

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