1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package Film;
use strict;
use File::Temp qw(tempdir tempfile);
use base qw(Class::DBI::SQLite);
BEGIN {
my $dir = tempdir( CLEANUP => 1 );
my($fh, $filename) = tempfile( DIR => $dir );
__PACKAGE__->set_db('Main', "dbi:SQLite:dbname=$filename", '', '', { AutoCommit => 0 });
}
__PACKAGE__->table('Movies');
__PACKAGE__->columns(Primary => qw(id));
__PACKAGE__->columns(All => qw(id title director));
sub CONSTRUCT {
my $class = shift;
$class->db_Main->do(<<'SQL');
CREATE TABLE Movies (
id INTEGER NOT NULL PRIMARY KEY,
title VARCHAR(32) NOT NULL,
director VARCHAR(64) NOT NULL
)
SQL
;
}
|
