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 | }, |
5294fdc6 |
36 | !$args->{self_result_object} ? () : { |
98def3ef |
37 | "$args->{foreign_alias}.artistid" => $args->{self_result_object}->artist_id, |
6fbef4a4 |
38 | "$args->{foreign_alias}.rank" => { '<' => 10 }, |
5294fdc6 |
39 | }, |
40 | !$args->{foreign_values} ? () : { |
41 | "$args->{self_alias}.artist_id" => $args->{foreign_values}{artistid}, |
42 | }, |
6fbef4a4 |
43 | ); |
44 | } |
45 | ); |
e98e6478 |
46 | |
576ae54b |
47 | __PACKAGE__->belongs_to('artist_limited_rank_opaque', 'DBICTest::Schema::Artist', |
6fbef4a4 |
48 | sub { |
6fbef4a4 |
49 | # This is for test purposes only. A regular user does not |
50 | # need to sanity check the passed-in arguments, this is what |
51 | # the tests are for :) |
a3a17a15 |
52 | my $args = &check_customcond_args; |
6fbef4a4 |
53 | |
54 | return ( |
55 | { "$args->{foreign_alias}.artistid" => { -ident => "$args->{self_alias}.artist_id" }, |
56 | "$args->{foreign_alias}.rank" => { '<' => 10 }, |
57 | } |
58 | ); |
59 | } |
60 | ); |
e98e6478 |
61 | |
d5633096 |
62 | 1; |