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