1package # hide from PAUSE 2 DBICTest::Schema::ForceForeign; 3 4use 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 321; 33