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

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

jgsmith     01/07/20 13:58:01

  Added:       perl/lib/AppSwitch/Echo Client.pm
  Log:
  Initial commit
  
  Revision  Changes    Path
  1.1                  services/perl/lib/AppSwitch/Echo/Client.pm
  
  Index: Client.pm
  ===================================================================
  package AppSwitch::Echo::Client;
  
  use base q(AppSwitch::Base::Client);
  
  our $VERSION = q(0.01);
  
  our $RPC_SERVICE = "echo";
  
  sub echo {
      my($self) = shift;
  
      my($string) = $_
  
      return $self -> request("echo", content => $string);
  }
  
  1;
  
  __END__
  
  =head1 NAME
  
  AppSwitch::Echo::Client
  
  =head1 SYNOPSIS
  
  use AppSwitch::Echo::Client;
  
  my $client = new AppSwitch::Echo::Client;
  
  print $client -> echo('Hello, World!');
  
  =head1 DESCRIPTION
  
  The echo client and server provide a simple example of a service 
  enabled for the application switch.  See L<AppSwitch::Base::Client> 
  for more information on writing a client.
  
  =head1 METHODS
  
  =over 4
  
  =item echo(string)
  
  Uses an echo service to return the string sent to the service.  
  This can be useful for testing connections or making sure the 
  daemon is up and running.
  
  =back
  
  =head1 AUTHOR
  
  James Smith <jg...@ja...>
  
  =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.