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; |