adding echo method

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@426 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index dffb54d..194d7d5 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -500,7 +500,6 @@ __PACKAGE__->register_method(
        method => 'introspect',
        api_name => 'opensrf.system.method.all'
 );
-
 __PACKAGE__->register_method(
        stream => 1,
        method => 'introspect',
@@ -508,6 +507,21 @@ __PACKAGE__->register_method(
        api_name => 'opensrf.system.method'
 );
 
+sub echo_method {
+       my $self = shift;
+       my $client = shift;
+       my @args = @_;
+
+       $client->respond( $_ ) for (@args);
+       return undef;
+}
+__PACKAGE__->register_method(
+       stream => 1,
+       method => 'echo_method',
+       argc => 1,
+       api_name => 'opensrf.system.echo'
+);
+
 sub make_stream_atomic {
        my $self = shift;
        my $req = shift;