#!/usr/bin/env perl

use strict;
use warnings;

use lib 'lib';

use Data::Dumper;

use AnyEvent;
use AnyEvent::Socket;
use AnyEvent::Handle;

$|++;

my $cv = AnyEvent->condvar;

my $ws_handle;

$ws_handle = AnyEvent::Handle->new(
	connect   => [ 'localhost', '8082' ],
	keepalive => 1,
	on_eof => sub {
		print ("! Server disconnected");
	},
	on_read => sub {
		my ($handle) = @_;

		my $buf = delete $handle->{rbuf};
		print "teste";

	},
	on_connect => sub {
		my ($handle, $host, $port, $retry) = @_;
		print "Server connected\n";              # this works
	},
	on_connect_error => sub {
		my ($handle, $message) = @_;

		print $message;
	},
);

$cv->recv;