[Opensrf-commits] r2112 - branches/rel_2_0/src/perl/lib/OpenSRF (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-11-29 14:18:33 -0500 (Mon, 29 Nov 2010)
New Revision: 2112

Modified:
   branches/rel_2_0/src/perl/lib/OpenSRF/Application.pm
Log:
added opensrf.system.sleep method; takes 1 param (seconds); useful for debugging child process management

Modified: branches/rel_2_0/src/perl/lib/OpenSRF/Application.pm
===================================================================
--- branches/rel_2_0/src/perl/lib/OpenSRF/Application.pm	2010-11-29 19:17:37 UTC (rev 2111)
+++ branches/rel_2_0/src/perl/lib/OpenSRF/Application.pm	2010-11-29 19:18:33 UTC (rev 2112)
@@ -744,6 +744,24 @@
 }
 
 
+__PACKAGE__->register_method(
+	method => 'sleep_method',
+	argc => 1,
+	api_name => 'opensrf.system.sleep',
+	signature => {
+		desc => q/Causes the backend process to sleep for the specified amount of time/,
+        params => [ {desc => q/Number of seconds to sleep;  defaults to 1/, type => 'number'} ],
+		return => { desc => q/The number of seconds slept/, type => 'number' }
+	}
+);
+
+sub sleep_method {
+	my($self, $client, $secs) = @_;
+    $secs ||= 1;
+    CORE::sleep($secs);
+    return $secs;
+}
+
 1;