t/lib/DBICDHTest.pm

   1 package DBICDHTest;
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Path 'remove_tree';
   7 use DBI;
   8
   9 sub ready {
  10    if (-d 't/sql') {
  11      remove_tree('t/sql');
  12      mkdir 't/sql';
  13    }
  14 }
  15
  16 sub dbh {
  17   DBI->connect('dbi:SQLite::memory:', undef, undef, { RaiseError => 1 })
  18 }
  19
  20 1;