Addition of a bunch of helper relationship methods
[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Schema / HelperRels.pm
1 package DBICTest::Schema::BasicRels;
2
3 use base 'DBIx::Class::Core';
4
5 DBICTest::Schema::Artist->has_many(cds => 'DBICTest::Schema::CD', undef,
6                                      { order_by => 'year' });
7 DBICTest::Schema::Artist->has_many(twokeys => 'DBICTest::Schema::TwoKeys');
8 DBICTest::Schema::Artist->has_many(onekeys => 'DBICTest::Schema::OneKey');
9
10 DBICTest::Schema::CD->belongs_to('artist', 'DBICTest::Schema::Artist');
11
12 DBICTest::Schema::CD->has_many(tracks => 'DBICTest::Schema::Track');
13 DBICTest::Schema::CD->has_many(tags => 'DBICTest::Schema::Tag');
14
15 DBICTest::Schema::CD->might_have(liner_notes => 'DBICTest::Schema::LinerNotes' => qw/notes/);
16
17 DBICTest::Schema::SelfRefAlias->belongs_to(
18   self_ref => 'DBICTest::Schema::SelfRef');
19
20 DBICTest::Schema::SelfRefAlias->belongs_to(
21   alias => 'DBICTest::Schema::SelfRef');
22
23 DBICTest::Schema::SelfRef->has_many(
24   aliases => 'DBICTest::Schema::SelfRefAlias' => 'self_ref');
25
26 DBICTest::Schema::Tag->belongs_to('cd', 'DBICTest::Schema::CD');
27
28 DBICTest::Schema::Track->belongs_to('cd', 'DBICTest::Schema::CD');
29
30 DBICTest::Schema::TwoKeys->belongs_to('artist', 'DBICTest::Schema::Artist');
31
32 DBICTest::Schema::TwoKeys->belongs_to('cd', 'DBICTest::Schema::CD');
33
34 1;