my $e = \%{ $package . '::' };
	%$e = map { $_ => $e->{$_} } grep { /::$/ } keys %$e;