t/lib/DBICTest/Schema/Tag.pm

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