http://www.perlmonks.org?node_id=499253

Here's a minimal subclass of DBI that illustrates how to subclass and adds interpolated binds to errors (i.e. it replaces SQL placeholders with the bind values). This isn't necessarily how your DBMS "sees" the statement, but it does give you a cut-and-pasteable approximation.

update Added Corion's fix to support questions marks in the bind values.

package MyDBI; use base qw(DBI); package MyDBI::db; use base qw(DBI::db); package MyDBI::st; use base qw(DBI::st); sub execute { my($sth,@binds)=@_; my $rv = eval { $sth->SUPER::execute(@binds) }; return $rv unless $@; my $errmsg = $sth->errstr; my $err = $sth->err ; my $stmt = $sth->{Statement}; @binds = map { $sth->{Database}->quote($_) unless DBI::looks_like_number($_); $_; } @binds; $stmt =~ s/\?/shift @binds/eg; return $sth->set_err( $err, sprintf "Execution Error: %s\nReconstructed SQL=\n<\n%s\n>\n" , $errmsg, $stmt ); } 1;