पर्ल में, मैं कैसे निर्धारित कर सकता हूं कि एक विधि के रूप में एक subroutine लागू किया गया था?

Question

क्या यह निर्धारित करने का कोई तरीका है कि किसी सबराउटिन को विधि के रूप में बुलाया जाता है (@ISA जांच के साथ) या सादा सबराउटिन के रूप में? शायद किसी प्रकार के एक्सटेंशन मॉड्यूल सुपर -caller() के साथ?

उदाहरण के लिए,

package Ad::Hoc; 

sub func() { ... } 

दिया कैसे 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 
    } 
}