[svn:dbi] r14563 - dbi/trunk/lib/DBD

Author: timbo
Date: Mon Dec  6 03:25:20 2010
New Revision: 14563

Modified:
   dbi/trunk/lib/DBD/NullP.pm

Log:
Add "sleep N" command to DBD::NullP

Modified: dbi/trunk/lib/DBD/NullP.pm
==============================================================================
--- dbi/trunk/lib/DBD/NullP.pm	(original)
+++ dbi/trunk/lib/DBD/NullP.pm	Mon Dec  6 03:25:20 2010
@@ -118,6 +118,15 @@
             $sth->{dbd_nullp_data} = [ @{$params}{ sort keys %$params } ];
             $sth->STORE(Active => 1); 
         }
+        elsif ($sth->{Statement} =~ m/^ \s* SLEEP \s+ (\S+) /xmsi) {
+            my $secs = $1;
+            if (eval { require Time::HiRes; defined &Time::HiRes::sleep }) {
+                Time::HiRes::sleep($secs);
+            }
+            else {
+                sleep $secs;
+            }
+        }
 	1;
     }