package Handle;

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

# This should return the handle's underlying tree
sub item {
  my $self = shift;
  return $self->{ITEM};
}

sub DESTROY {
  my $self = shift;
  $self->{ITEM}->break_links;
}


1;