package DTree;
use base 'Tree';

use Scalar::Util 'weaken';
sub set_parent {
  my $self = shift;
  $self->{PARENT} = shift;
  weaken $self->{PARENT};
}


1;