1package DBICTest::Schema::Genre;
2
3use strict;
4
5use base 'DBIx::Class::Core';
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__->resultset_class( __PACKAGE__ . '::ResultSet');
24
25package DBICTest::Schema::Genre::ResultSet;
26
27use base qw( DBIx::Class::ResultSet::RecursiveUpdate );
28
29
301;
31