Initial revision
[OpenSRF.git] / src / perlmods / OpenSRF / Transport / PeerHandle.pm
1 package OpenSRF::Transport::PeerHandle;
2 use OpenSRF::Utils::Logger qw(:level);
3 use OpenSRF::EX;
4 use base 'OpenSRF';
5 use vars '@ISA';
6
7 my $peer;
8
9 =head2 peer_handle( $handle )
10
11 Assigns the object that will act as the peer connection handle.
12
13 =cut
14 sub peer_handle {
15         my( $class, $handle ) = @_;
16         if( $handle ) { $peer = $handle; }
17         return $peer;
18 }
19
20
21 =head2 set_peer_client( $peer )
22
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
26 classes capabilities.  
27
28 =cut
29 sub set_peer_client {
30         my( $class, $peer ) = @_;
31         if( $peer ) {
32                 eval "use $peer;";
33                 if( $@ ) {
34                         throw OpenSRF::EX::PANIC ( "Unable to set peer client: $@" );
35                 }
36                 unshift @ISA, $peer;
37         }
38 }
39
40 1;