t/lib/DBICTest/Schema/CD_to_Producer.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::CD_to_Producer;
   3
   4 use warnings;
   5 use strict;
   6
   7 use base qw/DBICTest::BaseResult/;
   8
   9 __PACKAGE__->table('cd_to_producer');
  10 __PACKAGE__->add_columns(
  11   cd => { data_type => 'integer' },
  12   producer => { data_type => 'integer' },
  13   attribute => { data_type => 'integer', is_nullable => 1 },
  14 );
  15 __PACKAGE__->set_primary_key(qw/cd producer/);
  16
  17 # the undef condition in this rel is *deliberate*
  18 # tests oddball legacy syntax
  19 __PACKAGE__->belongs_to(
  20   'cd', 'DBICTest::Schema::CD'
  21 );
  22
  23 __PACKAGE__->belongs_to(
  24   'producer', 'DBICTest::Schema::Producer',
  25   { 'foreign.producerid' => 'self.producer' },
  26   { on_delete => undef, on_update => undef },
  27 );
  28
  29 1;