t/lib/DBICTest/Schema/Genre.pm

   1 package DBICTest::Schema::Genre;
   2
   3 use warnings;
   4 use strict;
   5
   6 use base qw/DBICTest::BaseResult/;
   7
   8 __PACKAGE__->table('genre');
   9 __PACKAGE__->add_columns(
  10     genreid => {
  11       data_type => 'integer',
  12       is_auto_increment => 1,
  13     },
  14     name => {
  15       data_type => 'varchar',
  16       size => 100,
  17     },
  18 );
  19 __PACKAGE__->set_primary_key('genreid');
  20 __PACKAGE__->add_unique_constraint ( genre_name => [qw/name/] );
  21
  22 __PACKAGE__->has_many (cds => 'DBICTest::Schema::CD', 'genreid');
  23
  24 __PACKAGE__->has_one (model_cd => 'DBICTest::Schema::CD', 'genreid');
  25
  26 1;