On finish callback never called

[robinvrd]

I am using the AnyEvent WebSocket Client with a websocket server set up on Java server Payara. I am using this server for websocket with javascript clients on another use case and everything is working fine.

Here, sending/receiving messages is working fine, but my problem comes from on finish callback which is never called when my server shut down.

    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;

Am I doing something wrong here ?

[kucharskim]

What I am doing I am sending pong messages (as server accepts them and ignores them) regularly. That allows the event loop to the detect that connection is broken. I define $pong event inside connect call back:

     1      $pong = AnyEvent->timer(
     2          after => 35,
     3          interval => 35,
     4          cb    => sub {
     5                  # timer might fire when $connection is undefined
     6                  unless ($connection) {
     7                          print "[pong] Connection is unavailable\n";
     8                          return;
     9                  }
    10                  # unsolicited pong frames are allowed by the server
    11                  $connection->send(AnyEvent::WebSocket::Message->new(body => '', opcode => 10));
    12                  print "[pong] Message sent to the server\n";
    13          }
    14      );