Commit | Line | Data |
07037f89 |
1 | package DBIx::Class::Relationship::BelongsTo; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | sub belongs_to { |
7 | my ($class, $rel, $f_class, $cond, $attrs) = @_; |
8 | eval "require $f_class"; |
0200ec9a |
9 | my %f_primaries = eval { %{ $f_class->_primaries } }; |
10 | my $f_loaded = !$@; |
07037f89 |
11 | # single key relationship |
12 | if (not defined $cond) { |
0200ec9a |
13 | $class->throw("Can't infer join condition for ${rel} on ${class}; unable to load ${f_class}") unless $f_loaded; |
14 | my ($pri, $too_many) = keys %f_primaries; |
15 | $class->throw("Can't infer join condition for ${rel} on ${class}; ${f_class} has multiple primary key") if $too_many; |
07037f89 |
16 | my $acc_type = ($class->_columns->{$rel}) ? 'filter' : 'single'; |
17 | $class->add_relationship($rel, $f_class, |
18 | { "foreign.${pri}" => "self.${rel}" }, |
19 | { accessor => $acc_type } |
20 | ); |
21 | } |
22 | # multiple key relationship |
23 | else { |
07037f89 |
24 | my $cond_rel; |
25 | for (keys %$cond) { |
99be059e |
26 | if (m/\./) { # Explicit join condition |
27 | $cond_rel = $cond; |
28 | last; |
29 | } |
07037f89 |
30 | $cond_rel->{"foreign.$_"} = "self.".$cond->{$_}; |
31 | # primary key usage checks |
32 | if (exists $f_primaries{$_}) { |
33 | delete $f_primaries{$_}; |
99be059e |
34 | } elsif ($f_loaded) { |
07037f89 |
35 | $class->throw("non primary key used in join condition: $_"); |
36 | } |
37 | } |
0200ec9a |
38 | $class->throw("Invalid belongs_to specification for ${rel} on ${class}; primary key columns ".join(', ', keys %f_primaries)." of ${f_class} not specified in join condition") if ($f_loaded && keys %f_primaries); |
07037f89 |
39 | $class->add_relationship($rel, $f_class, |
40 | $cond_rel, |
41 | { accessor => 'single', %{$attrs ||{}} } |
42 | ); |
43 | } |
44 | return 1; |
45 | } |
46 | |
503536d5 |
47 | =head1 AUTHORS |
48 | |
49 | Alexander Hartmaier <Alexander.Hartmaier@t-systems.at> |
50 | |
51 | Matt S. Trout <mst@shadowcatsystems.co.uk> |
52 | |
53 | =cut |
54 | |
07037f89 |
55 | 1; |