什么是有效的Perl模块返回值？

更进一步,有时当一个函数被记录为返回true和false时,我将返回除1之外的值.这是为了惩罚写入foo()== 1的人,当他们的意思是如果foo().这是在同一时期我写的使用常数TRUE => 1 == 1;使用常数FALSE => ！真正;

我看到生产代码中使用的模块的返回值.我不记得为什么.开发人员的逻辑是…折磨.我相信这是不希望只写一行而不是两行的.我不记得为什么他不出口它.

这是使用％_传递参数的同一开发人员(* _符号在包中是全局的),并在map语句内部写入150行地图语句.

除了混淆之外,使用返回值的危险是它只能工作一次.

$cat Foo.pm
package Foo;

return "Basset hounds got long ears";

$cat test.plx
#!/usr/bin/perl -w

print require Foo,"\n";
print require Foo,"\n";

$perl -I. test.plx
Basset hounds got long ears
1

第一次调用要求评估Foo.pm并返回返回值.第二个调用看起来已经在％INC中,并且返回true.你甚至不能确定你是第一件需要代码的东西.你可以用“Foo.pm”来解决这个问题,但现在你正在重新加载模块,每次都会有关于重新定义的例程,性能问题以及可能重新初始化全局变量的警告.这不值得.