view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

use warnings;
use FindBin::libs;
use Test::More;
use Test::Backbone::Events::Utils;

my $handler = test_handler();

my $triggered = 0;
$handler->on('wanted', sub { $triggered++ });

$handler->trigger('not_wanted');
is $triggered, 0, 'callback not triggered on unwanted event';

$handler->trigger('wanted');
is $triggered, 1, 'callback triggered on wanted event';


my $second_trigger = 0;
$handler->on('wanted', sub { $second_trigger++ });

$triggered = 0;