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

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

jgsmith     01/07/28 22:12:31

  Modified:    perl/lib/AppSwitch/Base Client.pm Service.pm
  Log:
  Added `use strict' and made so they can compile with warnings turned on
  
  Revision  Changes    Path
  1.3       +5 -4      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.2
  retrieving revision 1.3
  diff -b -u -r1.2 -r1.3
  --- Client.pm	2001/07/27 23:26:28	1.2
  +++ Client.pm	2001/07/29 05:12:31	1.3
  @@ -4,8 +4,9 @@
   
   use Carp;
   use SOAP::Transport::UNIX;
  +use strict;
   
  -# $Id: Client.pm,v 1.2 2001/07/27 23:26:28 jgsmith Exp $
  +# $Id: Client.pm,v 1.3 2001/07/29 05:12:31 jgsmith Exp $
   
   =head1 NAME
   
  @@ -132,7 +133,7 @@
       $method = $self -> service() . ".$method";
   
       # now we need to dispatch via the SOAP/XML-RPC client object...  which is global...
  -    our $_transport;
  +    our $_client;
   
       if(!defined $_client) {
           $_client = SOAP::Lite -> proxy("unix:$ENV{APPSWITCH_SOCKET}")
  @@ -156,9 +157,9 @@
   
   
   sub object_or_default {
  -    return @_ if ref $_[0] && $_[0] -> isa(AppSwitch::Base::Client);
  +    return @_ if ref $_[0] && $_[0] -> isa('AppSwitch::Base::Client');
       my $caller = caller;
  -    our $_clients;
  +    our %_clients;
       $_clients{$caller} = $caller -> new() unless defined $_clients{$caller};
       return ($_clients{$caller}, @_);
   }
  
  
  
  1.3       +2 -1      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.2
  retrieving revision 1.3
  diff -b -u -r1.2 -r1.3
  --- Service.pm	2001/07/27 23:12:01	1.2
  +++ Service.pm	2001/07/29 05:12:31	1.3
  @@ -3,6 +3,7 @@
   our $VERSION = 0.01;
   
   use base q(Attribute::Handlers);
  +use strict;
   
   =head1 NAME
   
  @@ -166,7 +167,7 @@
   
       my($method) = shift;
   
  -    my($code) = $self -> {dispatch} -> {$mthod};
  +    my($code) = $self -> {dispatch} -> {$method};
   
       $code = "do_$method" unless defined $code;