perl - 尽管有 "no warnings qw(experimental::signatures)"，签名仍产生警告消息

Question

创建了一个包并想使用签名。

package Foo;
use strict;
use warnings;
use feature qw(signatures);
no warnings qw(experimental::signatures);

use Moose;

has bar => ( is => 'ro', isa => 'Str' );

sub boom ($self, $stuff) {
    print "$stuff\n";
}
1;

测试它:

perl -wc Foo.pm
The signatures feature is experimental at ./Foo.pm line 11.

这是怎么回事？我认为“无警告”编译指示会抑制该警告!

Answer 1

问题是 use Moose; 行重新启用所有警告。

解决方法是将 no warnings qw(experimental::signatures) 移动到 use Moose; 行下方。

例如:

use Moose;
no warnings qw(experimental::signatures);