1package Class::DBI::Cascade::Delete;
2
3=head1 NAME
4
5Class::DBI::Cascade::Delete - Delete related objects
6
7=head1 DESCRIPTION
8
9This is a Cascading Delete strategy that will delete any related
10objects.
11
12=cut
13
14use strict;
15use warnings;
16
17use base 'Class::DBI::Cascade::None';
18
19sub cascade {
20	my ($self, $obj) = @_;
21	$self->foreign_for($obj)->delete_all;
22}
23
241;
25