1 package # hide from PAUSE
2 DBICTest::Schema::ForceForeign;
7 use base qw/DBICTest::BaseResult/;
9 __PACKAGE__->table('forceforeign');
10 __PACKAGE__->add_columns(
11 'artist' => { data_type => 'integer' },
12 'cd' => { data_type => 'integer' },
14 __PACKAGE__->set_primary_key(qw/artist/);
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', 'artistid',
19 { is_foreign_key_constraint => 1 },
22 # Normally this would appear as a FK constraint
23 __PACKAGE__->might_have('cd_1', 'DBICTest::Schema::CD',
24 { 'foreign.cdid' => 'self.cd' },
25 { is_foreign_key_constraint => 0 },
28 # Normally this would appear as a FK constraint
29 __PACKAGE__->belongs_to('cd_3', 'DBICTest::Schema::CD',
30 { 'foreign.cdid' => 'self.cd' },
31 { is_foreign_key_constraint => 0 },