Perl在旧perl上没有“试验性”警告

Question

我有一段代码，它使用了很多实验性(when、smartmatch、given)特性，这不是我的代码，我不想看到很多关于实验特性的警告。因此，我将no warnings 'experimental';添加到这段代码中。但是experimental类别只在Perl5.18中添加，所以我的代码在旧的perls中死亡：

未知警告类别“实验性”

如何禁用此警告而不破坏旧的perls中的代码？

Answer 1

试试如果

no if ($] >= 5.018), 'warnings' => 'experimental';

Answer 2

尝试安装和使用实验性模块。在旧的perls上，它什么也不做，而在新的perls上，它将禁用警告。

use experimental qw(smartmatch switch);