File Coverage

blib/lib/Class/DBI/Cascade/Plugin/Nullify.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	20	65.0

package Class::DBI::Cascade::Plugin::Nullify;

use strict;
use warnings;

use base 'Class::DBI::Cascade::None';

our $VERSION = 0.05;

sub cascade {
	my ($self, $obj) = @_;
	my $foreign_objects = $self->foreign_for($obj); # get all foreign objects
	my $foreign_key = $self->{_rel}->args->{foreign_key}; # get the foreign key

	while ( my $foreign_object = $foreign_objects->next) {
		$foreign_object->$foreign_key(undef); # set foreign key value to null
		$foreign_object->update(); # update the object
	}
}

1;

__END__