Почему Perl предупреждает о бесполезной константе 1 при использовании bigint?

Здесь есть две проблемы.

1. Почему use bigint; 1; предупреждает в пустом контексте?
2. Почему константа в первую очередь выполняется в пустом контексте?

$ perl -c -we'1 while sub_with_side_effects();'
-e syntax OK

$ perl -c -we'use bigint; 1 while sub_with_side_effects();'
Useless use of a constant (1) in void context at -e line 1.
-e syntax OK

Почему use bigint; 1; предупреждает в пустом контексте?

use bigint; устанавливает обратный вызов, который вызывается, когда синтаксический анализатор встречает константный литерал, и вместо этого значение, возвращаемое обратным вызовом, используется как константа. Таким образом, под use bigint;, 1 больше не является просто 0 или 1.

Но вы не делаете ничего плохого, поэтому это предупреждение является ложным. Вы можете обойти это, используя () или undef вместо 1.

undef while sub_with_side_effects();

Если мне не нужно использовать его во всей базе кода, я бы предпочел следующее:

while ( sub_with_side_effects() ) { }

$ cat Module.pm
package Module;
use bigint;
1;

$ perl -c -w Module.pm
Useless use of a constant (1) in void context at Module.pm line 3.
Module.pm syntax OK

Почему константа выполняется в пустом контексте?

Когда Perl выполняет модуль, Perl ожидает, что модуль вернет скалярное значение, поэтому Perl должен выполнять модуль в скалярном контексте.

Однако вы сказали Perl скомпилировать скрипт Module.pm. Когда Perl выполняет сценарий, Perl не требует возврата каких-либо значений, поэтому Perl выполняет сценарий в пустом контексте.

Использование модуля в качестве сценария может вызвать ложные предупреждения и ошибки, как и передача -W. Протестируйте модуль, используя следующее:

perl -we'use Module'

На самом деле, вам даже не нужно -w, так как use warnings; у вас уже должно быть в модуле. Все, что вам действительно нужно, это

perl -e'use Module'

-W вместо use warnings; в вашем модуле или проверка модулей с помощью -c вместо perl -MFoo -e0 может показать ложные ошибки. Это пример последнего.

Когда вы загружаете модуль в обычном режиме, он не в пустом контексте, потому что он проверяет истинность результата.

(Обратите внимание, что когда я пробую использовать 5.20.1, -W также приводит к ложному overload arg '..' is invalid at /usr/share/perl/5.20/Math/BigInt.pm line 155.)

Просто оставьте здесь обходной путь, чтобы избежать предупреждения: определение константы со значением 1 перед использованием bigint:

package Foo;
use strict;
use warnings;
use constant PACKAGE_END => 1;
use bigint;

PACKAGE_END;