я уверен, что это где-то описано в документации, но я не смог ее найти ...m ищет синтаксический сахар, который позволит вызвать метод для класса, имя которого хранится в хэше (в отличие от простого скаляра):

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, созданной сMoose :: Экспортер):Я'

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

PS. Я'мы только что заметили, что это та же самая техника (использование мета-класса Moose для поиска кода, а не его соглашение об именах)не могу также может использоваться для предикатов, какКласс :: MOP :: Attribute не имеет аналогаget_predicate_method_ref сбруя. :(