Commit | Line | Data |
ea2e61bf |
1 | package Film; |
2 | |
3 | BEGIN { unshift @INC, './t/testlib'; } |
4 | use base 'DBIx::Class::Test::SQLite'; |
5 | use strict; |
6 | |
7 | __PACKAGE__->set_table('Movies'); |
8 | __PACKAGE__->columns('Primary', 'Title'); |
9 | __PACKAGE__->columns('Essential', qw( Title )); |
10 | __PACKAGE__->columns('Directors', qw( Director CoDirector )); |
11 | __PACKAGE__->columns('Other', qw( Rating NumExplodingSheep HasVomit )); |
12 | |
13 | sub create_sql { |
14 | return qq{ |
15 | title VARCHAR(255), |
16 | director VARCHAR(80), |
17 | codirector VARCHAR(80), |
18 | rating CHAR(5), |
19 | numexplodingsheep INTEGER, |
20 | hasvomit CHAR(1) |
21 | } |
22 | } |
23 | |
24 | sub create_test_film { |
25 | return shift->create({ |
26 | Title => 'Bad Taste', |
27 | Director => 'Peter Jackson', |
28 | Rating => 'R', |
29 | NumExplodingSheep => 1, |
30 | }); |
31 | } |
32 | |
33 | package DeletingFilm; |
34 | |
35 | use base 'Film'; |
36 | sub DESTROY { shift->delete } |
37 | |
38 | 1; |
39 | |