perl - AnyEvent::WebSocket::Client 完成回调未调用

Question

我在使用AnyEvent::WebSocket::Client. 发送/接收系统运行良好，但我想使用on finish回调来处理连接关闭，但它从未被调用。

my $client = AnyEvent::WebSocket::Client->new;

$client->connect("ws://...")->cb(sub {
    our $connection = eval { shift->recv };

    if ($@) {
        warn $@;
        return;
    }

    $connection->on(each_message => sub {
        ...
    });

    $connection->on(finish => sub {
        print "Connection finished\n";
    });
});

AnyEvent->condvar->recv;

我希望客户端在连接终止时尝试重新连接，但是当我关闭我的 websocket 服务器时永远on finish不会调用回调。

任何帮助都会很棒！