Mojo::EventEmitter(3pm) | User Contributed Perl Documentation | Mojo::EventEmitter(3pm) |
Mojo::EventEmitter - Event emitter base class
package Cat; use Mojo::Base 'Mojo::EventEmitter'; # Emit events sub poke { my $self = shift; $self->emit(roar => 3); } package main; # Subscribe to events my $tiger = Cat->new; $tiger->on(roar => sub { my ($tiger, $times) = @_; say 'RAWR!' for 1 .. $times; }); $tiger->poke;
Mojo::EventEmitter is a simple base class for event emitting objects.
Mojo::EventEmitter can emit the following events.
$e->on(error => sub { my ($e, $err) = @_; ... });
This is a special event for errors, it will not be emitted directly by this class, but is fatal if unhandled. Subclasses may choose to emit it, but are not required to do so.
$e->on(error => sub { my ($e, $err) = @_; say "This looks bad: $err"; });
Mojo::EventEmitter inherits all methods from Mojo::Base and implements the following new ones.
$e = $e->catch(sub {...});
Subscribe to "error" event.
# Longer version $e->on(error => sub {...});
$e = $e->emit('foo'); $e = $e->emit('foo', 123);
Emit event.
my $bool = $e->has_subscribers('foo');
Check if event has subscribers.
my $cb = $e->on(foo => sub {...});
Subscribe to event.
$e->on(foo => sub { my ($e, @args) = @_; ... });
my $cb = $e->once(foo => sub {...});
Subscribe to event and unsubscribe again after it has been emitted once.
$e->once(foo => sub { my ($e, @args) = @_; ... });
my $subscribers = $e->subscribers('foo');
All subscribers for event.
# Unsubscribe last subscriber $e->unsubscribe(foo => $e->subscribers('foo')->[-1]); # Change order of subscribers @{$e->subscribers('foo')} = reverse @{$e->subscribers('foo')};
$e = $e->unsubscribe('foo'); $e = $e->unsubscribe(foo => $cb);
Unsubscribe from event.
You can set the "MOJO_EVENTEMITTER_DEBUG" environment variable to get some advanced diagnostics information printed to "STDERR".
MOJO_EVENTEMITTER_DEBUG=1
Mojolicious, Mojolicious::Guides, <https://mojolicious.org>.
2019-02-05 | perl v5.28.1 |