NAME
Mixin::Event::Dispatch::Bus - a message bus
VERSION
version 2.000
SYNOPSIS
{
package Some::Class;
sub bus { shift->{bus} ||= Mixin::Event::Dispatch::Bus->new }
}
my $obj = bless {}, 'Some::Class';
$obj->bus->subscribe_to_event(
something => sub { my ($ev) = @_; warn "something!" }
);
$obj->bus->invoke_event('something');DESCRIPTION
This class uses Mixin::Event::Dispatch to provide a message bus - instantiate this and call the usual methods to deal with events:
This allows several classes to share a common message bus, or to avoid polluting a class with event-related methods.
INHERITED METHODS
- Mixin::Event::Dispatch
-
add_handler_for_event, clear_event_handlers, event_handlers, invoke_event, subscribe_to_event, unsubscribe_from_event
AUTHOR
Tom Molesworth <cpan@perlsite.co.uk>
LICENSE
Copyright Tom Molesworth 2014. Licensed under the same terms as Perl itself.