为什么要使用“ perl Foo.pm”和“ perl -I”。 -mFoo -e1`表现不同吗？

Question

在Foo.pm中使用以下代码：

use strict;
use warnings;
package Foo;

BEGIN {
  $Foo::AUTHORITY = 'cpan:ETHER';
}
1;

将文件作为模块加载不会出现任何错误：

$ perl -I. -mFoo -e1
$

但是，直接加载文件可以：

$ perl Foo.pm
Name "Foo::AUTHORITY" used only once: possible typo at Foo.pm line 6.

此外， perl -e'require "Foo.pm"'也不会发出警告。

为什么会有这种差异？ 显然，文件的解析方式不同，但是如何以及为什么呢？

Answer 1

从技术角度还是从语言设计角度来看，“为什么”？

从语言的角度来看，这是有道理的，因为模块内引用的变量很可能是模块公共API的一部分。 例如，Data :: Dumper公开了一堆改变其行为的程序包变量。 （可以说是糟糕的设计，但是很糟糕。）这些变量只能在模块中被引用一次，但是有可能在程序的其他部分被引用。

如果仅在主脚本中引用了一次，而没有模块引用它，那么它很可能是一个错误，因此我们在脚本内而不是模块内收到此警告。

从技术角度来看，此警告是由gv.c生成的。 就我个人而言，我无法确定触发该事件的确切条件。

Answer 2

当然是有例外的，因为某些模块可以

if ($Me::Setting) {
   ...
} else {
   ...
}

我们并不总是有our和use vars （根据又一其他异常进口符号后者）。

---

警告发出warn （Perl侧）或Perl_warner （C侧）。 所讨论的行是这一行。