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(@_) : {}; |
aeb1bf75 |
16 | $self->search_related($rel)->search_related($f_rel, @_ > 0 ? @_ : undef, { %{$rel_attrs||{}}, %$attrs }); |
78af1010 |
17 | }; |
4b3ab474 |
18 | |
19 | *{"${class}::add_to_${meth}"} = sub { |
20 | my( $self, $obj ) = @_; |
21 | my $vals = @_ > 2 && ref $_[$#_] eq 'HASH' ? pop(@_) : {}; |
22 | return $self->search_related($rel)->create({ |
23 | map { $_=>$self->get_column($_) } $self->primary_columns(), |
24 | map { $_=>$obj->get_column($_) } $obj->primary_columns(), |
25 | %$vals, |
26 | }); |
27 | }; |
28 | |
29 | *{"${class}::remove_from_${meth}"} = sub { |
30 | my( $self, $obj ) = @_; |
31 | return $self->search_related( |
32 | $rel, |
33 | { |
34 | map { $_=>$self->get_column($_) } $self->primary_columns(), |
35 | map { $_=>$obj->get_column($_) } $obj->primary_columns(), |
36 | }, |
37 | )->delete(); |
38 | }; |
39 | |
8973b6f1 |
40 | } |
41 | } |
42 | |
43 | 1; |