[dbsrgits/DBIx-Class-Schema-Loader.git] / t / backcompat / 0.04006 / lib / dbixcsl_test_dir.pm

package dbixcsl_test_dir;

use warnings;
use strict;

our $tdir = 't/var';

use base qw/Exporter/;
our @EXPORT_OK = '$tdir';

die "/t does not exist, this can't be right...\n"
  unless -d 't';

unless (-d $tdir) {
  mkdir $tdir or die "Unable to create $tdir: $!\n";
}

1;
Commit	Line	Data
c213fd3d	1	package dbixcsl_test_dir;
	2
	3	use warnings;
	4	use strict;
	5
	6	our $tdir = 't/var';
	7
	8	use base qw/Exporter/;
	9	our @EXPORT_OK = '$tdir';
	10
	11	die "/t does not exist, this can't be right...\n"
	12	unless -d 't';
	13
	14	unless (-d $tdir) {
	15	mkdir $tdir or die "Unable to create $tdir: $!\n";
	16	}
	17
	18	1;