Perl没有警告＆＃39;实验＆＃39;在老perl

Question

我有一段代码，它使用了很多实验性的（when，smartmatch，given）功能，它不是我的代码，我不会＆＃39 ;我想看到很多关于实验性功能的警告。所以我在此代码中添加了no warnings 'experimental';。但是只在perl 5.18中添加了experimental类别，所以我的代码在旧的perls中死掉了：

  

未知警告类别＆＃39; experimental＆＃39;

如何禁用此警告，并且不要破坏旧版perls中的代码？

Answer 1

尝试if：

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

Answer 2

尝试安装并使用experimental模块。在较旧的perls上，它什么都不做，而在较新的perls上，它将禁用警告。

use experimental qw(smartmatch switch);