[dbsrgits/DBIx-Class.git] / t / testlib / CDBase.pm

package CDBase;

use strict;
use base qw(DBIx::Class);
__PACKAGE__->load_components(qw/CDBICompat Core DB/);

use File::Temp qw/tempfile/;
my (undef, $DB) = tempfile();
my @DSN = ("dbi:SQLite:dbname=$DB", '', '', { AutoCommit => 1 });

END { unlink $DB if -e $DB }

__PACKAGE__->connection(@DSN);

1;
Commit	Line	Data
ea2e61bf	1	package CDBase;
	2
	3	use strict;
	4	use base qw(DBIx::Class);
a02675cd	5	__PACKAGE__->load_components(qw/CDBICompat Core DB/);
ea2e61bf	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;