W Perlu, w jaki sposób określić, czy podprogram został wywołany jako metoda?

Question

Czy istnieje sposób określenia, czy podprogram jest wywoływany jako metoda (z sondowaniem @ISA), czy jako zwykły podprogram? Być może z jakimś modułem rozszerzenia super-caller()?

Na przykład, biorąc pod uwagę

package Ad::Hoc; 

sub func() { ... } 

Jak func() rozróżnienia między dwiema następującymi inwokacji:

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

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

(wiem, pragnienie, aby to zrobić jest Prawdopodobny Wskazanie słaby projekt ™.)

Answer 1

Sprawdź, czy pomaga Devel::Caller. Zmieniłem kod powołać func na obiekcie i wydaje się działać na moim Mac z perl 5.14.3 i 5.24.0) (:

called_as_method($level)

called_as_method returns true jeśli podprogram w $level nazwano jako metoda.

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

wyjściowa:

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