t/lib/DBICTest/Schema/TwoKeys.pm

   1 package DBICTest::TwoKeys;
   2
   3 use base 'DBIx::Class::Core';
   4
   5 DBICTest::TwoKeys->table('twokeys');
   6 DBICTest::TwoKeys->add_columns(qw/artist cd/);
   7 DBICTest::TwoKeys->set_primary_key(qw/artist cd/);
   8 DBICTest::TwoKeys->add_relationship(
   9     artist => 'DBICTest::Artist',
  10     { 'foreign.artistid' => 'self.artist' }
  11 );
  12 DBICTest::TwoKeys->add_relationship(
  13     cd => 'DBICTest::CD',
  14     { 'foreign.cdid' => 'self.cd' }
  15 );
  16
  17 1;