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',
19 { 'foreign.artistid' => 'self.artist' },
20 { is_foreign_key_constraint => 1 },
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 },
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 },