view release on metacpan or  search on metacpan

lib/MooX/Role/EventEmitter.pm  view on Meta::CPAN

}

=head2 C<< $obj->on $name, @args >>

  my $cb = $obj->on( myevent => sub { ... });

Subscribe to an event.

=cut

sub on($self, $name, $cb) {
    push @{$self->events->{$name}}, $cb and return $cb
}

=head2 C<< $obj->once $name, @args >>

  my $cb = $obj->once( myevent => sub { ... });

Subscribe to an event for just one event.

=cut