perl - 打开警告然后关闭的目的是什么？

Question

从 here 读取 File::Find::Closure 模块的源代码，我无法理解这些行的目的:

package File::Find::Closures;
use strict;

use warnings;
no warnings;

• 为什么作者打开后立即关闭警告？
• warnings模块中是否有东西开启后无法关闭？

Answer 1

从功能上讲，没有任何意义。这和简单地使用是一样的

no warnings;

我能想到三个动机:

1. 编码员受制于要求使用 use warnings; 的政策。 ，并且他想违反政策的精神，同时仍然遵守政策的文字。

2. 编码器想要覆盖 -w通过使用 no warnings; ，他错误地认为他必须使用 use warnings; 加载模块首先。

3. 编码者想使用use warnings; ，所以他做了，但是模块还没有准备好，所以他添加了no warnings;暂时的。