Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Schema/CD_to_Producer.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::CD_to_Producer;
   3
   4 use base 'DBIx::Class::Core';
   5
   6 __PACKAGE__->table('cd_to_producer');
   7 __PACKAGE__->add_columns(
   8   cd => { data_type => 'integer' },
   9   producer => { data_type => 'integer' },
  10 );
  11 __PACKAGE__->set_primary_key(qw/cd producer/);
  12
  13 __PACKAGE__->belongs_to(
  14   'cd', 'DBICTest::Schema::CD',
  15   { 'foreign.cdid' => 'self.cd' }
  16 );
  17
  18 __PACKAGE__->belongs_to(
  19   'producer', 'DBICTest::Schema::Producer',
  20   { 'foreign.producerid' => 'self.producer' },
  21   { on_delete => undef, on_update => undef },
  22 );
  23
  24 __PACKAGE__->resultset_class( __PACKAGE__ . '::ResultSet');
  25
  26 package DBICTest::Schema::CD_to_Producer::ResultSet;
  27
  28 use base qw( DBIx::Class::ResultSet::RecursiveUpdate );
  29
  30
  31 1;