Commit | Line | Data |
c0e7b4e5 |
1 | package # hide from PAUSE |
2 | DBIx::Class::Relationship::HasOne; |
22b15c96 |
3 | |
4 | use strict; |
5 | use warnings; |
70c28808 |
6 | use DBIx::Class::Carp; |
ed7ab0f4 |
7 | use Try::Tiny; |
fd323bf1 |
8 | use namespace::clean; |
22b15c96 |
9 | |
fd323bf1 |
10 | our %_pod_inherit_config = |
044e70c7 |
11 | ( |
12 | class_map => { 'DBIx::Class::Relationship::HasOne' => 'DBIx::Class::Relationship' } |
13 | ); |
14 | |
07037f89 |
15 | sub might_have { |
16 | shift->_has_one('LEFT' => @_); |
17 | } |
18 | |
22b15c96 |
19 | sub has_one { |
e5d98edd |
20 | shift->_has_one(undef() => @_); |
07037f89 |
21 | } |
22 | |
23 | sub _has_one { |
503536d5 |
24 | my ($class, $join_type, $rel, $f_class, $cond, $attrs) = @_; |
99be059e |
25 | unless (ref $cond) { |
fd4df975 |
26 | $class->ensure_class_loaded($f_class); |
e36de82e |
27 | |
dc571b76 |
28 | my $pri = $class->_get_primary_key; |
e8fb771b |
29 | |
e36de82e |
30 | $class->throw_exception( |
31 | "might_have/has_one needs a primary key to infer a join; ". |
32 | "${class} has none" |
33 | ) if !defined $pri && (!defined $cond || !length $cond); |
34 | |
9780718f |
35 | my $f_class_loaded = try { $f_class->columns }; |
dc571b76 |
36 | my ($f_key,$too_many,$guess); |
dcf8330b |
37 | if (defined $cond && length $cond) { |
99be059e |
38 | $f_key = $cond; |
dcf8330b |
39 | $guess = "caller specified foreign key '$f_key'"; |
103647d5 |
40 | } elsif ($f_class_loaded && $f_class->has_column($rel)) { |
07037f89 |
41 | $f_key = $rel; |
dcf8330b |
42 | $guess = "using given relationship '$rel' for foreign key"; |
07037f89 |
43 | } else { |
dc571b76 |
44 | $f_key = $class->_get_primary_key($f_class); |
dcf8330b |
45 | $guess = "using primary key of foreign class for foreign key"; |
22b15c96 |
46 | } |
fd4df975 |
47 | $class->throw_exception( |
48 | "No such column ${f_key} on foreign class ${f_class} ($guess)" |
49 | ) if $f_class_loaded && !$f_class->has_column($f_key); |
503536d5 |
50 | $cond = { "foreign.${f_key}" => "self.${pri}" }; |
07037f89 |
51 | } |
2339d6c7 |
52 | $class->_validate_has_one_condition($cond); |
07037f89 |
53 | $class->add_relationship($rel, $f_class, |
54 | $cond, |
503536d5 |
55 | { accessor => 'single', |
07037f89 |
56 | cascade_update => 1, cascade_delete => 1, |
57 | ($join_type ? ('join_type' => $join_type) : ()), |
503536d5 |
58 | %{$attrs || {}} }); |
07037f89 |
59 | 1; |
22b15c96 |
60 | } |
61 | |
dc571b76 |
62 | sub _get_primary_key { |
63 | my ( $class, $target_class ) = @_; |
64 | $target_class ||= $class; |
ed7ab0f4 |
65 | my ($pri, $too_many) = try { $target_class->_pri_cols } |
66 | catch { |
9780718f |
67 | $class->throw_exception("Can't infer join condition on ${target_class}: $_"); |
ed7ab0f4 |
68 | }; |
e8fb771b |
69 | |
dc571b76 |
70 | $class->throw_exception( |
71 | "might_have/has_one can only infer join for a single primary key; ". |
72 | "${class} has more" |
73 | ) if $too_many; |
74 | return $pri; |
75 | } |
76 | |
2339d6c7 |
77 | sub _validate_has_one_condition { |
dc571b76 |
78 | my ($class, $cond ) = @_; |
79 | |
80 | return if $ENV{DBIC_DONT_VALIDATE_RELS}; |
81 | return unless 'HASH' eq ref $cond; |
82 | foreach my $foreign_id ( keys %$cond ) { |
83 | my $self_id = $cond->{$foreign_id}; |
84 | |
85 | # we can ignore a bad $self_id because add_relationship handles this |
86 | # warning |
87 | return unless $self_id =~ /^self\.(.*)$/; |
88 | my $key = $1; |
2339d6c7 |
89 | $class->throw_exception("Defining rel on ${class} that includes ${key} but no such column defined here yet") |
90 | unless $class->has_column($key); |
dc571b76 |
91 | my $column_info = $class->column_info($key); |
92 | if ( $column_info->{is_nullable} ) { |
416e0bc0 |
93 | carp(qq'"might_have/has_one" must not be on columns with is_nullable set to true ($class/$key). This might indicate an incorrect use of those relationship helpers instead of belongs_to.'); |
dc571b76 |
94 | } |
95 | } |
96 | } |
97 | |
22b15c96 |
98 | 1; |