My::EventManager->observe( 'foo.on_mobble' => sub {
  my $event = shift;

  my $foo = $event->src;
  # Do stuff to $foo
});

##</code><code>##

# Let anyone who cares know that $foo has just mobbled.
$foo->notify( event => 'foo.on_mobble' );