package Film;
use strict;
use base 'Class::DBI';
use Class::DBI::DATA::Schema translate => ["MySQL" => "SQLite"];
use File::Temp qw/tempfile/;
my (undef, $DB) = tempfile();
my @DSN = ("dbi:SQLite:dbname=$DB", '', '', { AutoCommit => 1 });
END { unlink $DB if -e $DB }
__PACKAGE__->set_db(Main => @DSN);
__PACKAGE__->table('Film');
__PACKAGE__->columns(All => qw/filmid title rating/);
1;
__DATA__
CREATE TABLE film (
filmid INTEGER AUTO_INCREMENT PRIMARY KEY,
title VARCHAR(255),
rating VARCHAR(5)
);
INSERT INTO film (title, rating) VALUES ("Veronique", 15);