connect to websocket

websocket.pl

#!/usr/bin/env perl

use Mojo::UserAgent;

my $endpoint = 'wss://10.0.3.1:17070/';

my $ua = Mojo::UserAgent->new;
$ua->websocket(
    $endpoint => sub {
        my $tx = pop;
        $tx->on(finish => sub { Mojo::IOLoop->stop });
        $tx->on(
            json => sub {
                my ($tx, $msg) = @_;
                say $msg;
            }
        );
        $tx->send(json => {"RequestId" => 1, "Type" => "Login"});
    }
);
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;

Mojo::Reactor::Poll: Read failed: Mojo::UserAgent: Event "read" failed: Can't locate object method "send" via package "Mojo::Transaction::HTTP" at ./eg/envinfo.pl line 19.