function - Perl - 调用类的实例

Question

有没有办法捕获调用 Perl 类实例的事件？

my $obj = ExampleClass->new();
$obj(); # do something without producing error

我希望能够在类/模块定义中处理这个问题。类似于Python中的__call__方法，或者Lua中的__call元方法。

Answer 1

我仍然不确定用例是什么，但您可以重载该类来处理代码取消引用。

package ExampleClass;
use overload '&{}' => \&__call__;   # Or an anon sub.
sub new {
   bless {@_}, shift;
}
sub __call__ {
    sub { warn "calling an instance event" };
}

package main;
my $obj = ExampleClass->new;
$obj->();
&$obj();      # same as $obj->()

典型输出:

$ perl 44956235.pl
calling an instance event at 44956235.pl line 7.
calling an instance event at 44956235.pl line 7.