function – Perl – 调用类的实例

发布时间：2020-12-15 23:34:51 所属栏目：大数据来源：网络整理

导读：有没有办法捕获调用Perl类的实例的事件？ my $obj = ExampleClass-new();$obj(); # do something without producing error 我希望能够在类/模块定义中处理这个问题.类似于Python中的__call__方法或Lua中的__call元方法. 解决方法我仍然不确定用例是什么,但

有没有办法捕获调用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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!