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 Event::Join;

my $done;
my $events;
my $joiner = Event::Join->new(
    events        => [qw/foo bar baz/],
    on_event      => sub { my ($e) = @_; $events->{$e}++ },
    on_completion => sub { $done = $_[0] },
);

isa_ok $joiner, 'Event::Join';

$joiner->send_event('foo');
is $events->{foo}, 1, 'on_event callback called';