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

Author: timbo
Date: Tue Feb 22 09:27:07 2011
New Revision: 14714

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

Log:
Extend DBD::NullP execute() to return an error triggered by SQL

Modified: dbi/trunk/lib/DBD/NullP.pm
==============================================================================
--- dbi/trunk/lib/DBD/NullP.pm	(original)
+++ dbi/trunk/lib/DBD/NullP.pm	Tue Feb 22 09:27:07 2011
@@ -118,6 +118,7 @@
             $sth->{dbd_nullp_data} = [ @{$params}{ sort keys %$params } ];
             $sth->STORE(Active => 1); 
         }
+        # force a sleep - handy for testing
         elsif ($sth->{Statement} =~ m/^ \s* SLEEP \s+ (\S+) /xmsi) {
             my $secs = $1;
             if (eval { require Time::HiRes; defined &Time::HiRes::sleep }) {
@@ -127,6 +128,11 @@
                 sleep $secs;
             }
         }
+        # force an error - handy for testing
+        elsif ($sth->{Statement} =~ m/^ \s* ERROR \s+ (\d+) \s* (.*) /xmsi) {
+            return $sth->set_err($1, $2);
+        }
+        # anything else is silently ignored, sucessfully
 	1;
     }