t/cdbi/testlib/Film.pm

   1 package # hide from PAUSE
   2     Film;
   3
   4 use base 'DBIC::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