1 package # hide from PAUSE
2 DBIx::Class::Relationship::ManyToMany;
6 use warnings::register;
10 my ($class, $meth, $rel, $f_rel, $rel_attrs) = @_;
12 $class->throw_exception(
13 "missing relation in many-to-many"
16 $class->throw_exception(
17 "missing foreign relation in many-to-many"
22 no warnings 'redefine';
24 my $add_meth = "add_to_${meth}";
25 my $remove_meth = "remove_from_${meth}";
26 my $set_meth = "set_${meth}";
27 my $rs_meth = "${meth}_rs";
29 for ($add_meth, $remove_meth, $set_meth, $rs_meth) {
30 warnings::warn(<<"EOW")
31 ***************************************************************************
32 The many-to-many relationship $meth is trying to create a utility method called
33 $_. This will overwrite the existing method on $class. You almost certainly
34 want to rename your method or the many-to-many relationship, as your method
35 will not be callable (it will use the one from the relationship instead.)
37 no warnings 'DBIx::Class::Relationship::ManyToMany'; in
39 ***************************************************************************
41 if warnings::enabled() && $class->can($_);
44 $rel_attrs->{alias} ||= $f_rel;
46 my $rs_meth_name = join '::', $class, $rs_meth;
47 *$rs_meth_name = Sub::Name::subname $rs_meth_name, sub {
49 my $attrs = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {};
50 my @args = ($f_rel, @_ > 0 ? @_ : undef, { %{$rel_attrs||{}}, %$attrs });
51 my $rs = $self->search_related($rel)->search_related(
52 $f_rel, @_ > 0 ? @_ : undef, { %{$rel_attrs||{}}, %$attrs }
57 my $meth_name = join '::', $class, $meth;
58 *$meth_name = Sub::Name::subname $meth_name, sub {
60 my $rs = $self->$rs_meth( @_ );
61 return (wantarray ? $rs->all : $rs);
64 my $add_meth_name = join '::', $class, $add_meth;
65 *$add_meth_name = Sub::Name::subname $add_meth_name, sub {
67 @_ > 0 or $self->throw_exception(
68 "${add_meth} needs an object or hashref"
70 my $source = $self->result_source;
71 my $schema = $source->schema;
72 my $rel_source_name = $source->relationship_info($rel)->{source};
73 my $rel_source = $schema->resultset($rel_source_name)->result_source;
74 my $f_rel_source_name = $rel_source->relationship_info($f_rel)->{source};
75 my $f_rel_rs = $schema->resultset($f_rel_source_name)->search({}, $rel_attrs||{});
79 if (ref $_[0] eq 'HASH') {
80 $obj = $f_rel_rs->create($_[0]);
85 $obj = $f_rel_rs->create({@_});
88 my $link_vals = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {};
89 my $link = $self->search_related($rel)->new_result($link_vals);
90 $link->set_from_related($f_rel, $obj);
95 my $set_meth_name = join '::', $class, $set_meth;
96 *$set_meth_name = Sub::Name::subname $set_meth_name, sub {
98 @_ > 0 or $self->throw_exception(
99 "{$set_meth} needs a list of objects or hashrefs"
101 my @to_set = (ref($_[0]) eq 'ARRAY' ? @{ $_[0] } : @_);
102 $self->search_related($rel, {})->delete;
103 $self->$add_meth($_) for (@to_set);
106 my $remove_meth_name = join '::', $class, $remove_meth;
107 *$remove_meth_name = Sub::Name::subname $remove_meth_name, sub {
109 @_ > 0 && ref $_[0] ne 'HASH'
110 or $self->throw_exception("${remove_meth} needs an object");
112 my $rel_source = $self->search_related($rel)->result_source;
113 my $cond = $rel_source->relationship_info($f_rel)->{cond};
114 my $link_cond = $rel_source->resolve_condition(
117 $self->search_related($rel, $link_cond)->delete;