1 package DBIx::Class::Relationship::ManyToMany;
7 my ($class, $meth, $rel, $f_rel, $rel_attrs) = @_;
12 no warnings 'redefine';
13 *{"${class}::${meth}"} = sub {
14 my ($self,$cond,$attrs) = @_;
15 $self->search_related($rel)->search_related($f_rel, $cond, { %$rel_attrs, %{$attrs||{}} });