t/testlib/CDBase.pm

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