t/lib/DBICTest/Schema/ForceForeign.pm

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