Add a streaming version of the split() method in simpletext example

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

diff --git a/src/perl/lib/OpenSRF/Application/Demo/SimpleText.pm b/src/perl/lib/OpenSRF/Application/Demo/SimpleText.pm
index b5d09c3..9085e9b 100644 (file)
--- a/src/perl/lib/OpenSRF/Application/Demo/SimpleText.pm
+++ b/src/perl/lib/OpenSRF/Application/Demo/SimpleText.pm
@@ -140,7 +140,9 @@ sub text_split {
     my $delimiter = shift || ' ';
 
     my @split_text = split $delimiter, $text;
-    return \@split_text;
+    foreach my $string (@split_text) {
+        $conn->respond( $string );
+    }
     
     return undef;
 }
@@ -150,6 +152,7 @@ __PACKAGE__->register_method(
     api_name  => 'opensrf.simple-text.split',
     api_level => 1,
     argc      => 2,
+    stream    => 1,
     signature => {
         desc     => <<"         DESC",
 Splits a string by a given delimiter (space by default) and returns an array of the split strings