t/testlib/OtherFilm.pm

   1 package OtherFilm;
   2
   3 use strict;
   4 use base 'Film';
   5
   6 __PACKAGE__->set_table('Different_Film');
   7
   8 sub create_sql {
   9         return qq{
  10                 title                   VARCHAR(255),
  11                 director                VARCHAR(80),
  12                 codirector              VARCHAR(80),
  13                 rating                  CHAR(5),
  14                 numexplodingsheep       INTEGER,
  15                 hasvomit                CHAR(1)
  16         };
  17 }
  18
  19 1;
  20