my $r = \%::; $r = $r->{$_ . '::'} for split /::/, $package; \%$r