services: services/perl/lib/AppSwitch/Echo Client.pm

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

jgsmith     01/07/27 16:21:35

  Modified:    perl/lib/AppSwitch/Echo Client.pm
  Log:
  Use support routine to support functional model
  
  Revision  Changes    Path
  1.2       +1 -3      services/perl/lib/AppSwitch/Echo/Client.pm
  
  Index: Client.pm
  ===================================================================
  RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Echo/Client.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -b -u -r1.1 -r1.2
  --- Client.pm	2001/07/20 20:58:01	1.1
  +++ Client.pm	2001/07/27 23:21:35	1.2
  @@ -7,9 +7,7 @@
   our $RPC_SERVICE = "echo";
   
   sub echo {
  -    my($self) = shift;
  -
  -    my($string) = $_
  +    my($self, $string) = object_or_default(@_);
   
       return $self -> request("echo", content => $string);
   }