Perl：如何获得’使用VERSION’号码

发布时间：2020-12-16 06:27:31 所属栏目：大数据来源：网络整理

导读：是否有一个特殊的变量或函数,它在运行脚本时给出了使用VERSION(在本例中为5.12.0)的次数？ #!/usr/bin/env perl use warnings;use 5.12.0; 解决方法我只是快速检查了feature.pm代码 – 版本本身并没有存储在任何地方. Alex的答案已经展示了如何测试呼叫产生

是否有一个特殊的变量或函数,它在运行脚本时给出了使用VERSION(在本例中为5.12.0)的次数？

#!/usr/bin/env perl 
use warnings;
use 5.12.0;

解决方法

我只是快速检查了feature.pm代码 – 版本本身并没有存储在任何地方. Alex的答案已经展示了如何测试呼叫产生的特定功能.

另请注意,可以在多个位置(例如,在模块中)调用VERSION.

一个假设的选择是覆盖使用并在某处记录版本号以供检查.

编辑：有些在钩子方向戳：

use version; # for version parsing
use subs 'require';
BEGIN {
    sub require {
        warn "use ",version->parse($_[0]);
        # ... emulate original require
    };
}

use 5.12.0;

这个有限的示例报告了指定的版本,但是对于实际使用,它必须更加健壮.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!