1 package DBICTest::Schema::Tag;
3 use base qw/DBIx::Class::Core/;
5 DBICTest::Schema::Tag->table('tags');
6 DBICTest::Schema::Tag->add_columns(qw/tagid cd tag/);
7 DBICTest::Schema::Tag->set_primary_key('tagid');
8 DBICTest::Schema::Tag->add_relationship(
9 cd => 'DBICTest::Schema::CD',
10 { 'foreign.cdid' => 'self.cd' }