The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 2;

use_ok('PocketIO::Broadcast');

use PocketIO::Pool;
use PocketIO::Broadcast;
use PocketIO::Connection;

my $pool = PocketIO::Pool->new;
my $conn = PocketIO::Connection->new;

my $broadcast = PocketIO::Broadcast->new(conn => $conn, pool => $pool);
ok $broadcast;

$broadcast->send(undef, 'foo');
$broadcast->emit(undef, 'bar');