+++ /dev/null
-package # hide from PAUSE
- Film;
-
-BEGIN { unshift @INC, './t/testlib'; }
-use base 'DBIx::Class::Test::SQLite';
-use strict;
-
-__PACKAGE__->set_table('Movies');
-__PACKAGE__->columns('Primary', 'Title');
-__PACKAGE__->columns('Essential', qw( Title ));
-__PACKAGE__->columns('Directors', qw( Director CoDirector ));
-__PACKAGE__->columns('Other', qw( Rating NumExplodingSheep HasVomit ));
-
-sub create_sql {
- return qq{
- title VARCHAR(255),
- director VARCHAR(80),
- codirector VARCHAR(80),
- rating CHAR(5),
- numexplodingsheep INTEGER,
- hasvomit CHAR(1)
- }
-}
-
-sub create_test_film {
- return shift->create({
- Title => 'Bad Taste',
- Director => 'Peter Jackson',
- Rating => 'R',
- NumExplodingSheep => 1,
- });
-}
-
-package DeletingFilm;
-
-use base 'Film';
-sub DESTROY { shift->delete }
-
-1;
-