1 package DBIx::Class::Relationship::ManyToMany;
7 my ($class, $meth, $rel, $f_rel, $rel_attrs) = @_;
10 no warnings 'redefine';
11 *{"${class}::${meth}"} = sub {
13 my $attrs = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {};
14 $self->search_related($rel)->search_related($f_rel, @_ > 0 ? @_ : undef, { %{$rel_attrs||{}}, %$attrs });