Perl không có cảnh báo 'thử nghiệm' trên perl cũ

Question

Tôi có một đoạn mã sử dụng nhiều tính năng thử nghiệm (when, smartmatch, given), không phải mã của tôi và tôi không muốn thấy nhiều cảnh báo về các tính năng thử nghiệm. Vì vậy, tôi đã thêm no warnings 'experimental'; vào mã này. Nhưng experimental loại đã được bổ sung chỉ trong perl 5,18 do đó, mã của tôi chết trong perls cũ:

cảnh báo Unknown loại 'thử nghiệm'

Làm thế nào tôi có thể vô hiệu hóa cảnh báo này và không phá vỡ mã của tôi trong perls cũ ?

Answer 1

Hãy thử if:

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

Answer 2

Thử cài đặt và sử dụng mô-đun experimental. Trên perls cũ nó sẽ không làm gì cả, và trên perls mới hơn nó sẽ vô hiệu hóa các cảnh báo.

use experimental qw(smartmatch switch);