Commit | Line | Data |
75d07914 |
1 | package # hide from PAUSE |
c0e7b4e5 |
2 | DBIx::Class::Relationship::HasMany; |
07037f89 |
3 | |
4 | use strict; |
5 | use warnings; |
ed7ab0f4 |
6 | use Try::Tiny; |
fd323bf1 |
7 | use namespace::clean; |
07037f89 |
8 | |
fd323bf1 |
9 | our %_pod_inherit_config = |
044e70c7 |
10 | ( |
11 | class_map => { 'DBIx::Class::Relationship::HasMany' => 'DBIx::Class::Relationship' } |
12 | ); |
13 | |
07037f89 |
14 | sub has_many { |
15 | my ($class, $rel, $f_class, $cond, $attrs) = @_; |
c037c03a |
16 | |
dcf8330b |
17 | unless (ref $cond) { |
fd4df975 |
18 | $class->ensure_class_loaded($f_class); |
fd323bf1 |
19 | my ($pri, $too_many) = try { $class->_pri_cols } |
ed7ab0f4 |
20 | catch { |
e705f529 |
21 | $class->throw_exception("Can't infer join condition for '$rel' on ${class}: $_"); |
ed7ab0f4 |
22 | }; |
fd4df975 |
23 | |
24 | $class->throw_exception( |
25 | "has_many can only infer join for a single primary key; ". |
26 | "${class} has more" |
27 | ) if $too_many; |
aeb1bf75 |
28 | |
e36de82e |
29 | $class->throw_exception( |
30 | "has_many needs a primary key to infer a join; ". |
31 | "${class} has none" |
32 | ) if !defined $pri && (!defined $cond || !length $cond); |
33 | |
aeb1bf75 |
34 | my ($f_key,$guess); |
07037f89 |
35 | if (defined $cond && length $cond) { |
36 | $f_key = $cond; |
dcf8330b |
37 | $guess = "caller specified foreign key '$f_key'"; |
07037f89 |
38 | } else { |
39 | $class =~ /([^\:]+)$/; |
dcf8330b |
40 | $f_key = lc $1; # go ahead and guess; best we can do |
41 | $guess = "using our class name '$class' as foreign key"; |
07037f89 |
42 | } |
aeb1bf75 |
43 | |
9780718f |
44 | my $f_class_loaded = try { $f_class->columns }; |
303cf522 |
45 | $class->throw_exception( |
e705f529 |
46 | "No such column '$f_key' on foreign class ${f_class} ($guess)" |
303cf522 |
47 | ) if $f_class_loaded && !$f_class->has_column($f_key); |
d4daee7b |
48 | |
8e04bf91 |
49 | $cond = { "foreign.${f_key}" => "self.${pri}" }; |
07037f89 |
50 | } |
51 | |
edcecdbb |
52 | my $default_cascade = ref $cond eq 'CODE' ? 0 : 1; |
53 | |
303cf522 |
54 | $class->add_relationship($rel, $f_class, $cond, { |
55 | accessor => 'multi', |
56 | join_type => 'LEFT', |
edcecdbb |
57 | cascade_delete => $default_cascade, |
58 | cascade_copy => $default_cascade, |
303cf522 |
59 | %{$attrs||{}} |
60 | }); |
07037f89 |
61 | } |
62 | |
63 | 1; |