NAME

Net::XMPP2::Event - Event handler class

SYNOPSIS

package foo;
use Net::XMPP2::Event;

our @ISA = qw/Net::XMPP2::Event/;

package main;
my $o = foo->new;
$o->reg_cb (foo => sub { ...; 1 });
$o->event (foo => 1, 2, 3);

DESCRIPTION

This module is just a small helper module for the connection and client classes.

You may only derive from this package.

METHODS

set_exception_cb ($cb)

If some event callback threw an exception then $cb is called with the exception as first argument.

reg_cb ($eventname1, $cb1, [$eventname2, $cb2, ...])

This method registers a callback $cb1 for the event with the name $eventname1. You can also pass multiple of these eventname => callback pairs.

The return value will be an ID that represents the set of callbacks you have installed. Call unreg_cb with that ID to remove those callbacks again.

To see a documentation of emitted events please take a look at the EVENTS section in the classes that inherit from this one.

The callbacks will be called in an array context. If a callback doesn't want to return any value it should return an empty list. All elements of the returned list will be accumulated and the semantic of the accumulated return values depends on the events.

For every event there are two other events emitted:

Before the callbacks for $eventname is being exectued the event "before_$eventname" is being emitted. And after the callbacks for $eventname have been run, the event "after_$eventname" is being emitted.

The "before_$eventname" callbacks allow you to stop the execution of all callbacks for the event $eventname and "after_$eventname". This can be used to intercept events and stop them.

(Please note that for Net::XMPP2::Ext::* there are special events for the runs before and after the events. They are named "ext_before_$eventname" and "ext_after_$eventname". If you are writing an extension you should use these events to ensure that users of Net::XMPP2 can still intercept everything.)

unreg_cb ($id)

Removes the set $id of registered callbacks. $id is the return value of a reg_cb call.

event ($eventname, @args)

Emits the event $eventname and passes the arguments @args. The return value is a list of defined return values from the event callbacks.

See also the specification of the before and after events in reg_cb above.

_event ($eventname, @args)

This directly executes the event $eventname without executing callbacks of the before and after events (as specified in reg_cb above).

unreg_me

If this method is called from a callback on the first argument to the callback (thats $self) the callback will be deleted after it is finished.

stop_event

When called in a 'before_' event callback then the execution of the event is stopped after all 'before_' callbacks have been run.

add_forward ($obj, $forward_cb)

This method allows to forward or copy all events to an object. $forward_cb will be called everytime an event is generated in $self. The first argument to the callback $forward_cb will be <$self>, the second will be $obj, the third will be the event name and the rest will be the event arguments. (For third and rest of argument also see description of event).

(Please note that it might be most useful to call _event in the callback to allow objects that receive the forwarded events to react better.)

remove_forward ($obj)

This method removes a forward. $obj must be the same object that was given add_forward as the $obj argument.

AUTHOR

Robin Redeker, <elmex at ta-sa.org>, JID: <elmex at jabber.org>

COPYRIGHT & LICENSE

Copyright 2007 Robin Redeker, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.