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

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

jgsmith     01/07/27 15:59:45

  Modified:    perl/lib/AppSwitch/Echo Service.pm
  Log:
  Change to use Method subroutine attribute
  
  Revision  Changes    Path
  1.3       +1 -5      services/perl/lib/AppSwitch/Echo/Service.pm
  
  Index: Service.pm
  ===================================================================
  RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Echo/Service.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -b -u -r1.2 -r1.3
  --- Service.pm	2001/07/26 05:49:19	1.2
  +++ Service.pm	2001/07/27 22:59:45	1.3
  @@ -4,11 +4,7 @@
   
   our $VERSION = 0.01;
   
  -our %METHODS = (
  -        echo => q(do_echo),
  -);
  -
  -sub do_echo { $_[2] -> {content} }
  +sub do_echo : Method(echo) { $_[2] -> {content} }
   
   1;