perl - 如何传递对 $self->class->method 的引用？

Question

我正在调用如下方法:

$self->class->method

我想将对此方法的引用作为参数传递给子例程。

我试过了

\&{ $self->class->method }

但我收到以下错误:

Unable to create sub named ""

关于如何做到这一点有什么想法吗？

Answer 1

你可以引用静态类方法，但在你的情况下你可以使用匿名闭包来实现类似的，

my $ref = sub { $self->class->method };

# ..
my $result = $ref->();