我试图找出我的 CGI::Application 中的哪个模块正在加载 Moose。我试图重载“require”,但我的语法似乎不太正确。如果有人可以清理以下代码,我将不胜感激:
use strict;
use warnings;
use Carp qw//;
BEGIN {
*CORE::GLOBAL::require = sub (*) {
warn "Requiring $_[0] at: " . Carp::longmess();
CORE::require (@_);
};
}
基本上,这个脚本的问题在于它实际上并没有加载任何东西。当 CORE::require(@ ) 被调用时,它不会“做”任何事情。我尝试直接使用 $ [0] 将脚本名称传递给它,但这只会导致脚本死锁,直到它超时。
注意:上面的脚本是我的启动脚本的开头