perl - 如何包装 require 和 use？

Question

假设我想包装 require这样，

package MyModule;
use Data::Dumper;

要么输出，

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

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

Answer 1

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

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