Tom Molesworth
and 1 contributors

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.