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