perl - クラス サブルーチンをコールバックとして渡す

Question

コールバックを受け取るモジュール (AnyEvent::Socket) を使用しています。クラスサブルーチンをコールバックとして渡そうとしていますが、何も機能していません:

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

未定義の変数について不平を言うだけです。関数を匿名サブルーチンとして渡すと、機能します

Answer 1

オブジェクトメソッドを呼び出す無名関数を渡すことができます。

sub{ $self->handle_connection }

Answer 2

curryモジュールはこの種のもののために構築されました

use curry;

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