my $pkg = \%{ $pkg_name . '::' };
delete $pkg->{$_} for grep !/::\z/, keys %$pkg;