perl - 将类子例程作为回调传递

Question

我正在使用一个接受回调的模块（AnyEvent::Socket）。我正在尝试将类子例程作为回调传递，但没有任何工作示例：

tcp_server undef, $self->port,\$self->handle_connection

它只是不起作用，它抱怨未定义的变量。如果我将函数作为匿名子例程传递，它可以工作

score 5 · Accepted Answer

5

您可以传递一个调用对象方法的匿名函数，

sub{ $self->handle_connection }

于 2015-11-30T07:23:21.883 回答

score 1 · Accepted Answer

该curry模块是为这种事情而构建的

use curry;

tcp_server undef, $self->port, $self->curry::handle_connection

2 回答 2