Perl 未调用AnyEvent:：WebSocket:：客户端完成回调

我在使用

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

回调

---

任何帮助都会很好

您使用的是什么web服务器？您也可以尝试在GitHub@HåkonHægland上询问，我正在使用Java web服务器Payaraa，我正在另一个使用javascript websocket客户端的用例中使用它来处理websocket，并且在那里一切正常。您使用的web服务器是什么？您也可以尝试在GitHub@HåkonHægland上询问，我正在使用Java Web服务器Payaraa，我在另一个使用javascript websocket客户端的用例中使用它来处理websocket，在那里一切都正常。