perl - 如何包装 require 和 use？

假设我想包装 require这样，

package MyModule;
use Data::Dumper;

要么输出，

MyModule -> Data::Dumper
MyModule -> Data/Dumper.pm

对于所有包和所有 requires/use声明。我怎么能做到？

最佳答案

BEGIN {
   unshift @INC, sub {
      printf "%s -> %s\n", ( caller() )[0], $_[1];
      return;
   };
}

请参阅 require 's documentation 中以“您也可以将 Hook 插入导入工具”开头的段落.

关于perl - 如何包装 require 和 use？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/65080238/

相关文章：

perl - ActivePerl 不会向浏览器输出 fatal error