Devel::InnerPackage - find all the inner packages of a package
use Foo::Bar; use Devel::InnerPackage qw(list_packages); my @inner_packages = list_packages('Foo::Bar');
Given a file like this
package Foo::Bar; sub foo {} package Foo::Bar::Quux; sub quux {} package Foo::Bar::Quirka; sub quirka {} 1;
then
list_packages('Foo::Bar');
will return
Foo::Bar::Quux Foo::Bar::Quirka
Return a list of all inner packages of that package.
Simon Wistow <simon@thegestalt.org>
Copyright, 2005 Simon Wistow
Distributed under the same terms as Perl itself.
None known.