我有一个分叉服务器.我在fork之前加载所有模块.
……还是我?我希望在程序中的某个点之后加载的每个模块都将一条消息记录到STDERR.
我打算使用以下内容,但它记录了一些使用do执行的脚本.
my %ignore = map { $_ => 1 } ( ... ); unshift @INC,sub { my (undef,$path) = @_; warn("$path wasn't loaded before forking.\n") if !$ignore{$path}; return (); };
我没有想法,但在我花费更多时间之前,我想知道是否有现成的解决方案.
解决方法
用的是什么?很简单
if $path =~ /\.pm\z/ && !$ignore{$path};
足以区分?
其他选择:
使用PPI进行静态代码分析(使用或基于Module::Extract::Use).
根据SIGHUP或其他信号将%INC转储到文件中.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。