Help for this page

Select Code to Download


  1. or download this
    opendir my $dir, PLUGINS;
@scanners = map (-f $_ ? /^(.*)\.pm$/i : ()), readdir $dir;
closedir $dir;
# ..
    require "$_.pm";
  2. or download this
    {
    local @INC = PLUGINS;
    opendir my $dir, PLUGINS;
    eval qq(@{[ map -f && ? /^(.*)\.pm$/ && "use \Q$1\E;", readdir $di
+r ]});
    closedir $dir;
}