Commit | Line | Data |
d5633096 |
1 | package # hide from PAUSE |
4f6386b0 |
2 | DBICTest::Schema::Artwork; |
3 | |
4a233f30 |
4 | use warnings; |
5 | use strict; |
6 | |
a3a17a15 |
7 | use base 'DBICTest::BaseResult'; |
8 | use DBICTest::Util 'check_customcond_args'; |
4f6386b0 |
9 | |
10 | __PACKAGE__->table('cd_artwork'); |
11 | __PACKAGE__->add_columns( |
12 | 'cd_id' => { |
13 | data_type => 'integer', |
9c3018b6 |
14 | is_nullable => 0, |
4f6386b0 |
15 | }, |
16 | ); |
17 | __PACKAGE__->set_primary_key('cd_id'); |
18 | __PACKAGE__->belongs_to('cd', 'DBICTest::Schema::CD', 'cd_id'); |
19 | __PACKAGE__->has_many('images', 'DBICTest::Schema::Image', 'artwork_id'); |
20 | |
d5633096 |
21 | __PACKAGE__->has_many('artwork_to_artist', 'DBICTest::Schema::Artwork_to_Artist', 'artwork_cd_id'); |
22 | __PACKAGE__->many_to_many('artists', 'artwork_to_artist', 'artist'); |
23 | |
e6f5efab |
24 | # both to test manytomany via double custom rel (deliberate misnamed accessor clash) |
25 | __PACKAGE__->many_to_many('artist_limited_rank', 'artwork_to_artist_via_customcond', 'artist_limited_rank'); |
26 | __PACKAGE__->many_to_many('artist_limited_rank_opaque', 'artwork_to_artist_via_opaque_customcond', 'artist_limited_rank_opaque'); |
e98e6478 |
27 | |
2f7d81b4 |
28 | __PACKAGE__->has_many('artwork_to_artist_via_customcond', 'DBICTest::Schema::Artwork_to_Artist', |
6fbef4a4 |
29 | sub { |
6fbef4a4 |
30 | # This is for test purposes only. A regular user does not |
31 | # need to sanity check the passed-in arguments, this is what |
32 | # the tests are for :) |
a3a17a15 |
33 | my $args = &check_customcond_args; |
6fbef4a4 |
34 | |
35 | return ( |
36 | { "$args->{foreign_alias}.artwork_cd_id" => { -ident => "$args->{self_alias}.cd_id" }, |
37 | }, |
98def3ef |
38 | $args->{self_result_object} && { |
39 | "$args->{foreign_alias}.artwork_cd_id" => $args->{self_result_object}->cd_id, |
6fbef4a4 |
40 | } |
41 | ); |
42 | } |
43 | ); |
e6f5efab |
44 | |
45 | __PACKAGE__->has_many('artwork_to_artist_via_opaque_customcond', 'DBICTest::Schema::Artwork_to_Artist', |
46 | sub { |
47 | # This is for test purposes only. A regular user does not |
48 | # need to sanity check the passed-in arguments, this is what |
49 | # the tests are for :) |
50 | my $args = &check_customcond_args; |
51 | |
52 | return ( |
53 | { "$args->{foreign_alias}.artwork_cd_id" => { -ident => "$args->{self_alias}.cd_id" } }, |
54 | ); |
55 | } |
56 | ); |
57 | |
58 | __PACKAGE__->many_to_many('all_artists_via_opaque_customcond', 'artwork_to_artist_via_opaque_customcond', 'artist'); |
2f7d81b4 |
59 | |
e98e6478 |
60 | |
4f6386b0 |
61 | 1; |