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

package CDBase;

use strict;
use base qw(DBIx::Class);

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