Perl：动态模块加载,对象继承和“常见帮助文件”

加载模块(通过使用)有两件事：

>编译模块并在命名空间层次结构(共享)中安装内容.请参阅perldoc -f require.
>在每个加载的模块上调用import子.这会将一些子或常量等加载到调用者的命名空间中.这是一个Exporter类很大程度上隐藏在视图中的过程.这部分对于使用没有全名的sub等很重要,例如max而不是List :: Util :: max.请参阅perldoc -f使用.

让我们看看以下三个模块：A,B和用户.

{
   package A;
   use List::Util qw(max);
   # can use List::Util::max
   # can use max
}
{
   package User;
   # can use List::Util::max -> it is already loaded
   # cannot use max,this name is not defined in this namespace
}

包B定义了一个子加载,它将预定义的模块列表加载到调用者名称空间中：

{
   package B;
   sub load {
     my $package = (caller())[0]; # caller is a built-in,fetches package name

     eval qq{package $package;} . <<'FINIS' ;
       use List::Util qw(max);
       # add further modules here to load
       # you can place arbitrarily complex code in this eval string
       # to execute it in all modules that call this sub.
       # (e.g. testing and registering)
       # However,this is orthogonal to OOP.
FINIS

     if ($@) {
       # Do error handling
     }
   }
}

在eval’d字符串中,我们暂时切换到调用程序包,然后加载指定的模块.这意味着用户包代码现在看起来像这样：

{
   package User;
   B::load();
   # can use List::Util::max
   # can use max
}

但是,您必须确保已经加载了子载荷.如果有疑问,请使用B.在编译其余模块之前,最好在BEGIN阶段执行B :: load()：

{
  package User;
  BEGIN {use B; B::load()}
  # ...
}

相当于

{
  package User;
  use B;
  use List::Util qw(max);
  # ...
}

TIMTOWTDI.虽然我发现evaling代码非常混乱和危险,但这是我在这种情况下追求的方式(而不是做文件,这类似但有不同的副作用).在包名称空间中手动搞乱使用typeglobs是比较糟糕的,复制粘贴模块名称列表就像回到没有C的预处理器的日子.

编辑：Import::Into

…是一个CPAN模块,通过一个有趣的方法接口提供此功能.使用此模块,我们将通过以下方式重新定义我们的B包：

{
  package B;
  use List::Util;   # you have to 'use' or 'require' this first,before using 'load'.
  use Import::Into; # has to be installed from CPAN first
  sub load {
    my $package = caller;
    List::Util->import::into($package,qw(max));
    # should work too: strict->import::into($package);
    # ...
  }
}

该模块隐藏了视图中的所有脏工作(evaling),并进行方法调用解析体操以允许将编译指示导入其他命名空间.