Mojo::EventEmitter - Event emitter base class

       You can set the "MOJO_EVENTEMITTER_DEBUG" environment variable to get some advanced diagnostics
       information printed to "STDERR".

         MOJO_EVENTEMITTER_DEBUG=1

       Mojo::EventEmitter is a simple base class for event emitting objects.

       Mojo::EventEmitter can emit the following events.

   error
         $e->on(error => sub ($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 ($e, $err) { say "This looks bad: $err" });

       Mojo::EventEmitter inherits all methods from Mojo::Base and implements the following new ones.

   catch
         $e = $e->catch(sub {...});

       Subscribe to "error" event.

         # Longer version
         $e->on(error => sub {...});

   emit
         $e = $e->emit('foo');
         $e = $e->emit('foo', 123);

       Emit event.

   has_subscribers
         my $bool = $e->has_subscribers('foo');

       Check if event has subscribers.

   on
         my $cb = $e->on(foo => sub {...});

       Subscribe to event.

         $e->on(foo => sub ($e, @args) {...});

   once
         my $cb = $e->once(foo => sub {...});

       Subscribe to event and unsubscribe again after it has been emitted once.

         $e->once(foo => sub ($e, @args) {...});

   subscribers
         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')};

   unsubscribe
         $e = $e->unsubscribe('foo');
         $e = $e->unsubscribe(foo => $cb);

       Unsubscribe from event.

       Mojo::EventEmitter - Event emitter base class

       Mojolicious, Mojolicious::Guides, <https://mojolicious.org>.

perl v5.40.0                                       2024-12-07                            Mojo::EventEmitter(3pm)

         package Cat;
         use Mojo::Base 'Mojo::EventEmitter', -signatures;

         # Emit events
         sub poke ($self) { $self->emit(roar => 3) }

         package main;

         # Subscribe to events
         my $tiger = Cat->new;
         $tiger->on(roar => sub ($tiger, $times) { say 'RAWR!' for 1 .. $times });
         $tiger->poke;