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