package # hide from PAUSE DBICTest::Schema::CD_to_Producer; use base 'DBIx::Class::Core'; __PACKAGE__->table('cd_to_producer'); __PACKAGE__->add_columns( cd => { data_type => 'integer' }, producer => { data_type => 'integer' }, ); __PACKAGE__->set_primary_key(qw/cd producer/); __PACKAGE__->belongs_to( 'cd', 'DBICTest::Schema::CD', { 'foreign.cdid' => 'self.cd' } ); __PACKAGE__->belongs_to( 'producer', 'DBICTest::Schema::Producer', { 'foreign.producerid' => 'self.producer' }, { on_delete => undef, on_update => undef }, ); __PACKAGE__->resultset_class( __PACKAGE__ . '::ResultSet'); package DBICTest::Schema::CD_to_Producer::ResultSet; use base qw( DBIx::Class::ResultSet::RecursiveUpdate ); 1;