debug - client authorized
info  - handshake authorized qs3kbEVnsoRBhD9hq91S
debug - destroying non-socket.io upgrade

##</code><code>##

#!/usr/bin/perl -w

use PocketIO::Client::IO;
my $socket = PocketIO::Client::IO->connect("http://localhost:1506");

my $cv = AnyEvent->condvar;
my $w  = AnyEvent->timer( after => 5, cb => $cv );

$socket->on( 'message', sub {
    say $_[1];
} );

$socket->on( 'connect', sub {
    $socket->send('Parumon!');
    $socket->emit( 'message', { name => 'name', message => 'msg emit' } );

    print "connected";
} );

$cv->wait;