有没有办法捕获调用 Perl 类实例的事件?
my $obj = ExampleClass->new();
$obj(); # do something without producing error
我希望能够在类/模块定义中处理这个问题。类似于Python中的__call__
方法,或者Lua中的__call
元方法。
最佳答案
我仍然不确定用例是什么,但您可以重载
该类来处理代码取消引用。
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.
关于function - Perl - 调用类的实例,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/44956235/