Передача подпрограммы класса в качестве обратного вызова

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