WebR::M::CDBI::DatafileRelationship->has_a(child=>'WebR::M::CDBI::Datafile');
    WebR::M::CDBI::DatafileRelationship->has_a(parent=>'WebR::M::CDBI::Datafile');
    WebR::M::CDBI::Datafile->has_many(parents=>['WebR::M::CDBI::DatafileRelationship' => 'parent'],'child', {
          cascade => 'Class::DBI::Cascade::Delete'});
    WebR::M::CDBI::Datafile->has_many(children=>['WebR::M::CDBI::DatafileRelationship' => 'child'],'parent', {
          cascade => 'Class::DBI::Cascade::Delete'} );

##</code><code>##

    WebR::M::CDBI::DatafileRelationship->has_a(child=>'WebR::M::CDBI::Datafile', {cascade=>'Class::DBI::Cascade::Delete'});

##</code><code>##

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;