t/testlib/CDBase.pm

   1 package CDBase;
   2
   3 use strict;
   4 use base qw(DBIx::Class);
   5
   6 use File::Temp qw/tempfile/;
   7 my (undef, $DB) = tempfile();
   8 my @DSN = ("dbi:SQLite:dbname=$DB", '', '', { AutoCommit => 1 });
   9
  10 END { unlink $DB if -e $DB }
  11
  12 __PACKAGE__->connection(@DSN);
  13
  14 1;