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

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

jgsmith     01/07/25 22:49:19

  Modified:    perl/lib/AppSwitch/Echo Service.pm
  Log:
  Moved the module to one contiguous block of code
  
  Revision  Changes    Path
  1.2       +6 -6      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.1
  retrieving revision 1.2
  diff -b -u -r1.1 -r1.2
  --- Service.pm	2001/07/25 22:19:49	1.1
  +++ Service.pm	2001/07/26 05:49:19	1.2
  @@ -8,6 +8,12 @@
           echo => q(do_echo),
   );
   
  +sub do_echo { $_[2] -> {content} }
  +
  +1;
  +
  +__END__
  +
   =head1 NAME
   
   AppSwitch::Echo::Service;
  @@ -47,9 +53,3 @@
   3. Neither the name of the Project nor the names of its contributors
   may be used to endorse or promote products derived from this
   software without specific prior written permission.
  -
  -=cut
  -
  -sub do_echo { $_[2] -> {content} }
  -
  -1;