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