Select Code to Download

$dbh = DBI->connect('..', '..', '..');
$sth = $dbh->prepare(q{select ..});
...
    ..
  }
}

  
no strict 'refs';
*{ Test::MockDBI::errstr } = sub { return };

package db;

...


__END__

$ prove db.t
db....Name "Test::MockDBI::errstr" used only once: possible typo at db
+.t line 24.
...
----------------------------------------------------------------------
+---------
db.t         255 65280     4    4 100.00%  3-4
Failed 1/1 test scripts, 0.00% okay. 2/4 subtests failed, 50.00% okay.