[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / lib / DBICDHTest.pm

package DBICDHTest;

use strict;
use warnings;

use File::Path 'remove_tree';

sub ready {
   unlink 'db.db' if -e 'db.db';
   if (-d 't/sql') {
     remove_tree('t/sql');
     mkdir 't/sql';
   }
}


1;
Commit	Line	Data
02d58ac0	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;