services: services/perl/lib/AppSwitch/Echo Client.pm
Status: Pre-Alpha
Brought to you by:
jgsmith
|
From: <app...@li...> - 2001-07-27 23:21:36
|
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);
}
|