sub cleanup {
    my ($package) = @_
    undef *{$package . '::' . $_} for keys %{$package . '::'};
}