t/lib/DBICTest/Schema/ForceForeign.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::ForceForeign;
   3
   4 use base qw/DBICTest::BaseResult/;
   5
   6 __PACKAGE__->table('forceforeign');
   7 __PACKAGE__->add_columns(
   8   'artist' => { data_type => 'integer' },
   9   'cd' => { data_type => 'integer' },
  10 );
  11 __PACKAGE__->set_primary_key(qw/artist/);
  12
  13 # Normally this would not appear as a FK constraint
  14 # since it uses the PK
  15 __PACKAGE__->might_have('artist_1', 'DBICTest::Schema::Artist',
  16   { 'foreign.artistid' => 'self.artist' },
  17   { is_foreign_key_constraint => 1 },
  18 );
  19
  20 # Normally this would appear as a FK constraint
  21 __PACKAGE__->might_have('cd_1', 'DBICTest::Schema::CD',
  22   { 'foreign.cdid' => 'self.cd' },
  23   { is_foreign_key_constraint => 0 },
  24 );
  25
  26 # Normally this would appear as a FK constraint
  27 __PACKAGE__->belongs_to('cd_3', 'DBICTest::Schema::CD',
  28   { 'foreign.cdid' => 'self.cd' },
  29   { is_foreign_key_constraint => 0 },
  30 );
  31
  32 1;