sub ERASE_PACKAGE {
  # Call with "Package::Name"
  my $packname = shift;
  $packname .= '::' unless  $packname =~ /::$/;
  no strict "refs";
  warn $packname;
  my $package = *{$packname}{HASH};
  return unless defined $package;
  undef *{$packname . $_} foreach  (keys %$package);
}