मैं फ़ंक्शन में हैश में संग्रहीत फ़ंक्शन नाम कैसे कॉल करूं?

Question

मुझे यकीन है कि यह कहीं भी प्रलेखन में शामिल है लेकिन मैं इसे खोजने में असमर्थ हूं ... मैं सिंटैक्टिक चीनी की तलाश में हूं जो कक्षा में एक विधि को कॉल करना संभव बनाता है जिसका नाम किसी संग्रह में संग्रहीत है हैश (के रूप में एक सरल अदिश के खिलाफ):

use strict; use warnings; 

package Foo; 
sub foo { print "in foo()\n" } 

package main; 
my %hash = (func => 'foo'); 

Foo->$hash{func}; 

अगर मैं एक अदिश चर में $hash{func} कॉपी पहले, तो मैं Foo->$func ठीक कॉल कर सकते हैं ... लेकिन क्या काम करने के लिए Foo->$hash{func} सक्षम करने के लिए याद आ रही है?

(संपादित करें: मुझे कक्षा Foo पर एक विधि को कॉल करके कुछ भी विशेष करने का मतलब नहीं है - यह आसानी से एक धन्य वस्तु (और मेरे वास्तविक कोड में) हो सकता है; यह लिखना आसान था एक वर्ग विधि का उपयोग कर एक आत्मनिर्भर उदाहरण।)

संपादित करें 2: बस पूर्ण टिप्पणियों के लिए नीचे दी गई टिप्पणियों के लिए, यह वही है जो मैं वास्तव में कर रहा हूं (यह मूस विशेषता चीनी की लाइब्रेरी में है, Moose::Exporter के साथ बनाया गया है) :

# adds an accessor to a sibling module 
sub foreignTable 
{ 
    my ($meta, $table, %args) = @_; 

    my $class = 'MyApp::Dir1::Dir2::' . $table; 
    my $dbAccessor = lcfirst $table; 

    eval "require $class" or do { die "Can't load $class: $@" }; 

    $meta->add_attribute(
     $table, 
     is => 'ro', 
     isa => $class, 
     init_arg => undef, # don't allow in constructor 
     lazy => 1, 
     predicate => 'has_' . $table, 
     default => sub { 
      my $this = shift; 
      $this->debug("in builder for $class"); 

      ### here's the line that uses a hash value as the method name 
      my @args = ($args{primaryKey} => $this->${\$args{primaryKey}}); 
      push @args, (_dbObject => $this->_dbObject->$dbAccessor) 
       if $args{fkRelationshipExists}; 

      $this->debug("passing these values to $class -> new: @args"); 
      $class->new(@args); 
     }, 
    ); 
} 

मैं इस के साथ ऊपर चिह्नित लाइन बदल दिया है:

 my $pk_accessor = $this->meta->find_attribute_by_name($args{primaryKey})->get_read_method_ref; 
     my @args = ($args{primaryKey} => $this->$pk_accessor); 

पीएस। मैंने अभी देखा है कि यह वही तकनीक (मूस मेटा क्लास का उपयोग अपने नामकरण सम्मेलन को मानने के बजाय कोडेफ को देखने के लिए) भी भविष्यवाणी के लिए उपयोग नहीं किया जा सकता है, क्योंकि Class::MOP::Attribute में get_predicate_method_ref एक्सेसर नहीं है। :(

Answer 1

Foo->${\$hash{func}}; 

लेकिन स्पष्टता के लिए की तरह कुछ का उपयोग कर सकते हैं, मैं शायद अभी भी लिखते हैं

my $method = $hash{func}; 
Foo->$method; 

Answer 2

वहाँ एक कारण है कि आप सबरूटीन नाम भंडारण कर रहे हैं संदर्भ के बजाय कोड करने के लिए है?

जैसे

use strict; use warnings; 

package Foo; 
sub foo { print "in foo()\n" } 

package main; 
my %hash = (func => \&Foo::foo); 

$hash{func}->(); 

आप वर्ग के नाम से गुजर नहीं किया जाएगा, लेकिन है कि यदि आप के लिए महत्वपूर्ण है , आप

my %hash = (func => sub { return Foo->foo(@_) }); 

Answer 3

आप की कोशिश की है UNIVERSAL's कर सकते हैं विधि: के रूप में? आप कुछ इस तरह लागू करने के लिए सक्षम होना चाहिए:

perl -MData::Dumper -le 'my %h = (f => "Dump"); my $o = Data::Dumper->new([qw/1 2 3/]); my $ref = $o->can($h{f}); print $o->$ref()'