Used to get package information recursive

travese-packages.pl

sub traverse_packages {
  my ($name, $depth) = @_;

  my $pkg = do { no strict qw(refs); \%{"$name\::"}; };
  for my $key (sort keys %$pkg) {
    printf "%s%s::%s\n", ' ' x ($depth * 2), $name, $key;
    traverse_packages("$name\::$1", $depth + 1) if $key =~ m!^(\w+)::$!;
  }
}

traverse_packages('Foo', 0);