Commit | Line | Data |
5b0b10fe |
1 | package # hide from PAUSE |
2 | DBICTest::Schema::ForceForeign; |
3 | |
660cf1be |
4 | use base qw/DBICTest::BaseResult/; |
5b0b10fe |
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( |
16 | 'artist_1', 'DBICTest::Schema::Artist', { |
89cf6a70 |
17 | 'foreign.artistid' => 'self.artist', |
5b0b10fe |
18 | }, { |
19 | is_foreign_key_constraint => 1, |
20 | }, |
21 | ); |
22 | |
23 | # Normally this would appear as a FK constraint |
24 | __PACKAGE__->might_have( |
25 | 'cd_1', 'DBICTest::Schema::CD', { |
26 | 'foreign.cdid' => 'self.cd', |
27 | }, { |
28 | is_foreign_key_constraint => 0, |
29 | }, |
30 | ); |
31 | |
6bf6ba2f |
32 | # Normally this would appear as a FK constraint |
33 | __PACKAGE__->belongs_to( |
34 | 'cd_3', 'DBICTest::Schema::CD', { |
35 | 'foreign.cdid' => 'self.cd', |
36 | }, { |
37 | is_foreign_key_constraint => 0, |
38 | }, |
39 | ); |
40 | |
5b0b10fe |
41 | 1; |