1 package DBIx::Class::Relationship::CascadeActions;
4 my ($self, @rest) = @_;
5 return $self->next::method(@rest) unless ref $self;
6 # I'm just ignoring this for class deletes because hell, the db should
7 # be handling this anyway. Assuming we have joins we probably actually
8 # *could* do them, but I'd rather not.
10 my $ret = $self->next::method(@rest);
12 my $source = $self->result_source;
13 my %rels = map { $_ => $source->relationship_info($_) } $source->relationships;
14 my @cascade = grep { $rels{$_}{attrs}{cascade_delete} } keys %rels;
15 foreach my $rel (@cascade) {
16 $self->search_related($rel)->delete;
22 my ($self, @rest) = @_;
23 return $self->next::method(@rest) unless ref $self;
24 # Because update cascades on a class *really* don't make sense!
26 my $ret = $self->next::method(@rest);
28 my $source = $self->result_source;
29 my %rels = map { $_ => $source->relationship_info($_) } $source->relationships;
30 my @cascade = grep { $rels{$_}{attrs}{cascade_update} } keys %rels;
31 foreach my $rel (@cascade) {
32 $_->update for $self->$rel;