use doesn't really allow you much in the way of trickery and flexibility. You cannot "use" modules conditionally, or dynamically create use lists.

However, as is documented...

It is exactly equivalent to
BEGIN { require Module; import Module LIST; }
except that Module must be a bareword.
[download]

So here's another strategy for you. Within a BEGIN block, open the directory in which your modules reside, read it, keep all the *.pm filenames, and then in a foreach loop perform the above "require $_; import $_ LIST;" code.

$_->import Instead of import $_ please =]

use doesn't really allow you much in the way of trickery and flexibility

Depends on how you look at it. Subroutine references in @INC provides a fair bit of trickery and flexibility.

ihb

See perltoc if you don't know which perldoc to read!

There are several "plugin" modules on CPAN, so you can look at how they do things. :)

Besides the other advice already given, if you have the list of file names of all the modules that you want to install, you can simply require() each file name. With a little more work you can turn that file name into a namespace and then call its import() routine. That's essentially what all does.

use Module::Pluggable search_path => ['MyPlugins'] require => 1;
## The following is not tested...
BEGIN {
   ## Do the Export and Export_OK into local namespace
   foreach my $plugin (__PACKAGE__->plugins()) {
       $plugin->import();
   }
}
[download]

use Module::Pluggable search_path => ['MyPlugins'] instantiate => 'imp
+ort';
[download]

But is it really a good idea to do so? maybe if you elaborate further on why you are trying to load all the modules under some directory we could give you better advice.

Is it pure laziness? are you working on some extensible architecture where new classes can be introduced just dropping them in the rigth directory?, etc.

unshift @INC "/path/to/target/directory";
[download]

my $dir = "/path/to/modules";
opendir(DIR, $dir);
while (my $mod = readdir(DIR)){
  next unless $mod =~ /\.pm$/;
#  print "Use $mod\n";
  eval "use $mod";
  if ($@) {
    print $@, "\n\n\n";
    exit(1);
  }
}
closedir(DIR);
[download]