Question

I have a directory structure that looks like:

Foo::Bar::Baz::1
Foo::Bar::Baz::2 etc

Can I list the packages from something like:

use Foo::Bar::Baz;

Thanks!

Edit: Made it more clear what the modules are.

Answer 1

Just to be clear, are you looking at random packages in random Perl code?

Or for Perl modules, e.g. “a/b/c/d1.pm” with module “a::b::c::d1”?

In either case, you can not use a single “use” statement to load them all.

What you need to do is to find all the appropriate files, using either glob or File::Find.

In the first case (modules), you can then load them either by require-ing each file, OR by converting filename into module name (s#/#::#g; s#\.pm$##;) and calling use on each module individually.

As far as actual packages nested in random Perl files, those packages can be:

• Listed by grepping each file (again, found via glob or File::Find) for /^package (.*);/

• Actually loaded by executing require $file for each file.

  In this case, please note that the package name for each of those packages in a/b/c/1.pl will NOT need to be related to “a::b::c” – e.g. they CAN be named by the file author “p1”, “a::p1” or “a::b::c::p1_something”.