我正在查看一些代码，但我不明白以下行正在做什么/检查：
return if !%Foo::Details:: ;
这究竟是做什么的？它是否检查模块Foo :: Details？
的存在答案 0 :(得分：9)
标量上下文中的散列如果为空则返回false，因此如果散列%Foo::Details::为空，则代码返回空列表。
该哈希是Foo::Details命名空间的符号表。如果在Foo::Details命名空间中创建了包变量或sub，则将在%Foo::Details::中创建与变量或sub的名称对应的glob。因此，如果Foo :: Details命名空间为空，它将返回一个空列表。
$ cat >Foo/Details.pm
package Foo::Details;
sub boo { }
1;
$ perl -E'say %Foo::Details:: ?1:0;'
0
$ perl -E'use Foo::Details; say %Foo::Details:: ?1:0;'
1
它可能正在尝试检查是否已加载Foo :: Details模块，但它并不完美。例如，即使只加载了Foo :: Details :: Bar，它也会认为已经加载了Foo :: Details。要检查是否已加载Foo :: Details，最好检查$INC{"Foo/Details.pm"}是否为真。该方法的问题在于它不会找到“内联模块”。
答案 1 :(得分：3)
此代码测试是否已加载模块。 %Foo::Details::是模块Foo::Details的符号表。
如果永远不会加载Foo::Details %Foo::Details::将返回false（因为它不包含任何元素），当用!否定时，它将返回true并从您所处的任何函数返回。< / p>
此外，here is another SO post讨论了确定模块是否已加载的方法。