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

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

sub cascade {
  my ($self, $obj) = @_;


  my $fk =$self->{_rel}->args->{foreign_key};
  foreach ($self->foreign_for($obj)){
    $_->$fk(undef); 
    $_->update;
  }
}

1;