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.
|
