Commit | Line | Data |
75d07914 |
1 | package # hide from PAUSE |
c0e7b4e5 |
2 | DBIx::Class::Relationship::ManyToMany; |
8973b6f1 |
3 | |
4 | use strict; |
5 | use warnings; |
6 | |
7 | sub many_to_many { |
78af1010 |
8 | my ($class, $meth, $rel, $f_rel, $rel_attrs) = @_; |
8973b6f1 |
9 | { |
10 | no strict 'refs'; |
11 | no warnings 'redefine'; |
4b3ab474 |
12 | |
78af1010 |
13 | *{"${class}::${meth}"} = sub { |
0f6ac8bb |
14 | my $self = shift; |
15 | my $attrs = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {}; |
3a868fb2 |
16 | $self->search_related($rel)->search_related( |
17 | $f_rel, @_ > 0 ? @_ : undef, { %{$rel_attrs||{}}, %$attrs } |
18 | ); |
78af1010 |
19 | }; |
4b3ab474 |
20 | |
21 | *{"${class}::add_to_${meth}"} = sub { |
22 | my( $self, $obj ) = @_; |
23 | my $vals = @_ > 2 && ref $_[$#_] eq 'HASH' ? pop(@_) : {}; |
24 | return $self->search_related($rel)->create({ |
25 | map { $_=>$self->get_column($_) } $self->primary_columns(), |
26 | map { $_=>$obj->get_column($_) } $obj->primary_columns(), |
27 | %$vals, |
28 | }); |
29 | }; |
30 | |
31 | *{"${class}::remove_from_${meth}"} = sub { |
32 | my( $self, $obj ) = @_; |
33 | return $self->search_related( |
34 | $rel, |
35 | { |
36 | map { $_=>$self->get_column($_) } $self->primary_columns(), |
37 | map { $_=>$obj->get_column($_) } $obj->primary_columns(), |
38 | }, |
39 | )->delete(); |
40 | }; |
41 | |
8973b6f1 |
42 | } |
43 | } |
44 | |
45 | 1; |