Re: How to see what is available in Module::Namespace::*

in reply to How to see what is available in Module::Namespace::*

So, basically, to load every available module matching /MyModule::Plugins::\w+/ you can do:

for (@INC) {
  my $path = "$_/MyModule/Plugins";
  for my $m (<$path/*.pm>) {
     $m =~ s{^\Q$_\E/}{}; # strip off everything leading up to MyModul
+e...
     $m =~ s{/}{::}g;     # replace / with ::
     $m =~ s{\.pm$}{};    # remove extension
     eval "use $m;";      # use MyModule::Plugin::Whatever
     die if $@;           # propagate exceptions
   }
}
[download]

updated: fixed glob

"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom