在Perl中,如何调用存储在散列中的函数名?

我确信文档中的某个地方包含了这一点,但我一直无法找到它。。。我正在寻找一种语法糖,它可以对名称存储在散列(而不是简单标量)中的类调用方法:

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);

另外,我刚刚注意到同样的技术(使用Moose元类查找coderef,而不是假设其命名约定) 不能 Class::MOP::Attribute 没有类似的 get_predicate_method_ref 访问者:(