1 package OpenSRF::Transport::Listener;
3 use OpenSRF::Utils::Logger qw(:level);
4 use OpenSRF::Transport::SlimJabber::Inbound;
5 use base 'OpenSRF::Transport::SlimJabber::Inbound';
9 This is the empty class that acts as the subclass of the transport listener. My API
13 create a new Listener with appname $app
16 Perform any transport layer connections/authentication.
19 Block, wait for, and process incoming messages
25 Sets my superclass. Pass in a string representing the perl module
26 (e.g. OpenSRF::Transport::Jabber::JInbound) to be used as the
27 superclass and it will be pushed onto @ISA.
32 my( $class, $listener ) = @_;
33 OpenSRF::Utils::Logger->transport("Loading Listener $listener", INFO );
37 OpenSRF::Utils::Logger->error(
38 "Unable to set transport listener: $@", ERROR );
40 unshift @ISA, $listener;