1 package OpenSRF::Transport::PeerHandle;
2 use OpenSRF::Utils::Logger qw(:level);
4 use base qw/OpenSRF::Transport::SlimJabber::PeerConnection/;
9 =head2 peer_handle( $handle )
11 Assigns the object that will act as the peer connection handle.
15 my( $class, $handle ) = @_;
16 if( $handle ) { $peer = $handle; }
21 =head2 set_peer_client( $peer )
23 Sets the class that will act as the superclass of this class.
24 Pass in a string representing the module to be used as the superclass,
25 and that module is 'used' and unshifted into @ISA. We now have that
30 my( $class, $peer ) = @_;
34 throw OpenSRF::EX::PANIC ( "Unable to set peer client: $@" );