--- cvsroot/AnyEvent-Porttracker/Porttracker.pm	2010/11/16 01:16:58	1.7
+++ cvsroot/AnyEvent-Porttracker/Porttracker.pm	2010/11/16 01:22:03	1.8
@@ -381,6 +381,12 @@
    $self->error ("login failed: $msg");
 }
 
+sub on_event_notify {
+   my ($self, $event, @args) = @_;
+
+   call $self, "on_${event}_event", @args;
+}
+
 =back
 
 =head2 EVENTS
@@ -462,11 +468,21 @@
 internally and - while it is possible to override it - should not be
 overriden.
 
+=item on_event_notify $api, $eventname, @args
+
+Called when the server broadcasts an event the API object is subscribed
+to. The default implementation (which should not be overridden) simply
+re-issues an "on_evenname_event" event with the @args.
+
 =item on_XYZ_notify $api, ...
 
 In general, any protocol notification will result in an event of the form
 C<on_NOTIFICATION_notify>.
 
+=item on_XYZ_event $api, ...
+
+Called when the server broadcasts the named (XYZ) event.
+
 =back
 
 =head1 SEE ALSO