my $ua = Mojo::UserAgent->new;

$ua->inactivity_timeout(0);
$ua->websocket(
    $gateway . ':443?v=9&application/json, text/plain, */*' => sub {
        my ( $ua, $tx ) = @_;

        # Check if WebSocket handshake was successful
        say 'WebSocket handshake failed!' and return unless $tx->is_websocket;

        # Wait for WebSocket to be closed
        $tx->on(
            finish => sub {
                my ( $tx, $code, $reason ) = @_;
                say "WebSocket closed with status $code and $reason";
                $ua->websocket->resume;    #would i use the payload here somehow instead of using sub reconnect()?

            }
        );

        $tx->on(
            message => sub {
                my ( $tx, $msg ) = @_;

                my $data    = decode_json($msg);
                my %payload = %$data;

                $globals{'sequence'} = $payload{'s'} if defined $payload{'s'};

                for ( $payload{'op'} ) {
                    when ('7') { reconnect( $tx, %payload ) }
                }
            }
        );
    }
);

Mojo::IOLoop->start unless Mojo::IOLoop->is_running;

sub reconnect {

    my $reconnect_payload = {
        op => 6,
        d  => {
            token      => $globals{'token'},
            session_id => $globals{'session_id'},
            seq        =>  defined( $globals{'sequence'} ) ? $globals{'sequence'} : 'null'
        },
        s => 'null',
        t => 'null'
    };

    #how to reconnect
}