lib/DBIx/Class/Relationship/ManyToMany.pm

   1 package DBIx::Class::Relationship::ManyToMany;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub many_to_many {
   7   my ($class, $meth, $rel, $f_rel, $rel_attrs) = @_;
   8   $rel_attrs ||= {};
   9
  10   {
  11     no strict 'refs';
  12     no warnings 'redefine';
  13     *{"${class}::${meth}"} = sub {
  14       my $self = shift;
  15       my $attrs = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {};
  16       $self->search_related($rel)->search_related($f_rel, @_ > 0 ? @_ : undef, { %$rel_attrs, %$attrs });
  17     };
  18   }
  19 }
  20
  21 1;