t/cdbi/testlib/Film.pm

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