Commit | Line | Data |
07037f89 |
1 | package DBIx::Class::Relationship::HasMany; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | sub has_many { |
7 | my ($class, $rel, $f_class, $cond, $attrs) = @_; |
8 | |
9 | eval "require $f_class"; |
55de06f1 |
10 | if ($@) { |
701da8c4 |
11 | $class->throw_exception($@) unless $@ =~ /Can't locate/; |
55de06f1 |
12 | } |
07037f89 |
13 | |
dcf8330b |
14 | unless (ref $cond) { |
103647d5 |
15 | my ($pri, $too_many) = $class->primary_columns; |
701da8c4 |
16 | $class->throw_exception( "has_many can only infer join for a single primary key; ${class} has more" ) |
dcf8330b |
17 | if $too_many; |
aeb1bf75 |
18 | |
19 | my ($f_key,$guess); |
07037f89 |
20 | if (defined $cond && length $cond) { |
21 | $f_key = $cond; |
dcf8330b |
22 | $guess = "caller specified foreign key '$f_key'"; |
07037f89 |
23 | } else { |
24 | $class =~ /([^\:]+)$/; |
dcf8330b |
25 | $f_key = lc $1; # go ahead and guess; best we can do |
26 | $guess = "using our class name '$class' as foreign key"; |
07037f89 |
27 | } |
aeb1bf75 |
28 | |
29 | my $f_class_loaded = eval { $f_class->columns }; |
701da8c4 |
30 | $class->throw_exception("No such column ${f_key} on foreign class ${f_class} ($guess)") |
103647d5 |
31 | if $f_class_loaded && !$f_class->has_column($f_key); |
aeb1bf75 |
32 | |
8e04bf91 |
33 | $cond = { "foreign.${f_key}" => "self.${pri}" }; |
07037f89 |
34 | } |
35 | |
36 | $class->add_relationship($rel, $f_class, $cond, |
37 | { accessor => 'multi', |
38 | join_type => 'LEFT', |
39 | cascade_delete => 1, |
333cce60 |
40 | cascade_copy => 1, |
07037f89 |
41 | %{$attrs||{}} } ); |
42 | } |
43 | |
44 | 1; |