services: services/perl/lib/AppSwitch/Base Client.pm Service.pm

[<app...@li...>]

jgsmith     01/07/31 21:58:42

  Modified:    perl/lib/AppSwitch/Base Client.pm Service.pm
  Log:
  Updated for importing and XMLRPC::Lite use...
  
  Revision  Changes    Path
  1.5       +8 -2      services/perl/lib/AppSwitch/Base/Client.pm
  
  Index: Client.pm
  ===================================================================
  RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Base/Client.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -b -u -r1.4 -r1.5
  --- Client.pm	2001/07/29 18:25:35	1.4
  +++ Client.pm	2001/08/01 04:58:42	1.5
  @@ -3,10 +3,16 @@
   our $VERSION = 0.01;
   
   use Carp;
  -use XMLRPC::Transport::UNIX;
  +use XMLRPC::Lite;
   use strict;
   
  -# $Id: Client.pm,v 1.4 2001/07/29 18:25:35 jgsmith Exp $
  +# $Id: Client.pm,v 1.5 2001/08/01 04:58:42 jgsmith Exp $
  +
  +sub import {
  +    no strict q(refs);
  +
  +    *{caller() . "::object_or_default"} = \&object_or_default;
  +}
   
   =head1 NAME
   
  
  
  
  1.5       +1 -0      services/perl/lib/AppSwitch/Base/Service.pm
  
  Index: Service.pm
  ===================================================================
  RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Base/Service.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -b -u -r1.4 -r1.5
  --- Service.pm	2001/07/29 18:26:58	1.4
  +++ Service.pm	2001/08/01 04:58:42	1.5
  @@ -125,6 +125,7 @@
       my %methods;
   
       while(@classes) {
  +	no strict 'refs';
   	my $c = shift;
   	unshift @classes, @{"${c}::ISA"} if defined @{"${c}::ISA"};
   	if(defined %{"${c}::METHODS"}) {