如何将 Perl 代码标记为已弃用？

Question

在我的项目中，我目前正在准备从遗留代码逐步迁移到经过正确设计和测试的新模块。由于并非每个程序员同事都密切关注我所做的事情，因此我想在使用旧代码时发出警告。我也非常希望能够输出有关如何移植旧代码的建议。

我找到了两种方法：

1. Attribute::Deprecated ，这对于函数来说很好，但如果不推荐使用完整的模块，则相当麻烦。此外，除了警告之外，没有其他信息。

2. 用于模块的

   Perl::Critic::Policy::Modules::ProhibitEvilModules 或自定义的 Perl::Critic 规则，以便在函数或方法级别上进行更精细的弃用。此方法很好，但从代码本身来看，它已被弃用并不能立即明显看出。

还有其他建议或技巧如何正确且轻松地做到这一点吗？

Answer 1

对于方法和函数，您只需用警告和对首选函数的调用替换函数体即可。

perl perllexwarn 给出以下示例：

 package MyMod::Abc;

 sub open {
     warnings::warnif("deprecated",
     "open is deprecated, use new instead");
     new(@_);
 }

 sub new {
     # ...
 }
 1;

如果您要弃用整个模块，将警告放在模块的 BEGIN 块中。

您还可以将警告放入 import 方法中（例如 Win32::GUI::import)：这完全取决于您想要做什么。