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

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

jgsmith     01/07/25 15:19:49

  Added:       perl/lib/AppSwitch/Echo Service.pm
  Log:
  Initial commit
  
  Revision  Changes    Path
  1.1                  services/perl/lib/AppSwitch/Echo/Service.pm
  
  Index: Service.pm
  ===================================================================
  package AppSwitch::Echo::Service;
  
  use base q{AppSwitch::Base::Service};
  
  our $VERSION = 0.01;
  
  our %METHODS = (
          echo => q(do_echo),
  );
  
  =head1 NAME
  
  AppSwitch::Echo::Service;
  
  =head1 SYNOPSIS
  
   my $handler = initialize AppSwitch::Echo::Service $daemon;
  
  =head1 DESCRIPTION
  
  This module provides an echo service.
  
  =head1 AUTHOR
  
  James Smith <jg...@ja...>
  
  =head1 SEE ALSO
  
  L<AppSwitch::Base::Service>,
  L<AppSwitch::Echo::Client>.
  
  =head1 COPYRIGHT
  
  Copyright (C) 2001  James Smith
  
  Redistribution and use in source and binary forms, with or without
  modification, are permitted provided that the following conditions
  are met:
  
  1. Redistributions of source code must retain the above copyright
  notice, this list of conditions and the following disclaimer.
  
  2. Redistributions in binary form must reproduce the above copyright
  notice, this list of conditions and the following disclaimer in the
  documentation and/or other materials provided with the distribution.
  
  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;