The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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.