view release on metacpan or  search on metacpan

lib/Class/DBI/Cascade/None.pm  view on Meta::CPAN

		$self->foreign_for($obj)->delete_all;
	}

=cut

use strict;
use warnings;

sub new {
	my ($class, $rel) = @_;
	bless { _rel => $rel } => $class;
}

sub foreign_for {
	my ($self, $obj) = @_;
	return $self->{_rel}
		->foreign_class->search($self->{_rel}->args->{foreign_key} => $obj->id);
}

sub cascade { return; }