t/backcompat/0.04006/lib/dbixcsl_test_dir.pm

   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;