The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package CDBase;

use strict;
use base qw(Class::DBI::Sweet);

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;