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

Question

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

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

它只是不起作用，它提示 undefined variable 。如果我将函数作为匿名子例程传递，它就可以工作

Answer 1

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

sub{ $self->handle_connection }