t/lib/DBICDHTest.pm

   1 package DBICDHTest;
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Path 'remove_tree';
   7
   8 sub ready {
   9    unlink 'db.db' if -e 'db.db';
  10    if (-d 't/sql') {
  11      remove_tree('t/sql');
  12      mkdir 't/sql';
  13    }
  14 }
  15
  16
  17 1;