Commit | Line | Data |
d5633096 |
1 | package # hide from PAUSE |
2 | DBICTest::Schema::Artwork_to_Artist; |
4a233f30 |
3 | |
4 | use warnings; |
5 | use strict; |
d5633096 |
6 | |
a3a17a15 |
7 | use base 'DBICTest::BaseResult'; |
8 | use DBICTest::Util 'check_customcond_args'; |
d5633096 |
9 | |
10 | __PACKAGE__->table('artwork_to_artist'); |
11 | __PACKAGE__->add_columns( |
12 | 'artwork_cd_id' => { |
13 | data_type => 'integer', |
14 | is_foreign_key => 1, |
15 | }, |
16 | 'artist_id' => { |
17 | data_type => 'integer', |
18 | is_foreign_key => 1, |
19 | }, |
20 | ); |
21 | __PACKAGE__->set_primary_key(qw/artwork_cd_id artist_id/); |
22 | __PACKAGE__->belongs_to('artwork', 'DBICTest::Schema::Artwork', 'artwork_cd_id'); |
23 | __PACKAGE__->belongs_to('artist', 'DBICTest::Schema::Artist', 'artist_id'); |
24 | |
576ae54b |
25 | __PACKAGE__->belongs_to('artist_limited_rank', 'DBICTest::Schema::Artist', |
6fbef4a4 |
26 | sub { |
6fbef4a4 |
27 | # This is for test purposes only. A regular user does not |
28 | # need to sanity check the passed-in arguments, this is what |
29 | # the tests are for :) |
a3a17a15 |
30 | my $args = &check_customcond_args; |
6fbef4a4 |
31 | |
32 | return ( |
33 | { "$args->{foreign_alias}.artistid" => { -ident => "$args->{self_alias}.artist_id" }, |
34 | "$args->{foreign_alias}.rank" => { '<' => 10 }, |
35 | }, |
98def3ef |
36 | $args->{self_result_object} && { |
37 | "$args->{foreign_alias}.artistid" => $args->{self_result_object}->artist_id, |
6fbef4a4 |
38 | "$args->{foreign_alias}.rank" => { '<' => 10 }, |
39 | } |
40 | ); |
41 | } |
42 | ); |
e98e6478 |
43 | |
576ae54b |
44 | __PACKAGE__->belongs_to('artist_limited_rank_opaque', 'DBICTest::Schema::Artist', |
6fbef4a4 |
45 | sub { |
6fbef4a4 |
46 | # This is for test purposes only. A regular user does not |
47 | # need to sanity check the passed-in arguments, this is what |
48 | # the tests are for :) |
a3a17a15 |
49 | my $args = &check_customcond_args; |
6fbef4a4 |
50 | |
51 | return ( |
52 | { "$args->{foreign_alias}.artistid" => { -ident => "$args->{self_alias}.artist_id" }, |
53 | "$args->{foreign_alias}.rank" => { '<' => 10 }, |
54 | } |
55 | ); |
56 | } |
57 | ); |
e98e6478 |
58 | |
d5633096 |
59 | 1; |