我需要对一些旧的脚本添加单元测试，脚本基本上都是以下形式：
#!/usr/bin/perl
# Main code
foo();
bar();
# subs
sub foo {
}
sub bar {
}
如果我尝试在单元测试中“要求”这个代码，则代码的主要部分将运行，我希望能够单独测试“foo”。
有没有办法这样做没有移动foo，bar进入一个单独的.pm文件？
解决方法
单元测试脚本的另一个常见技巧是将其代码的正文包装到“调用者”块中：
#!/usr/bin/perl
use strict;
use warnings;
unless (caller) {
# startup code
}
sub foo { ... }
当从命令行，cron，bash脚本等运行时，它正常运行。但是，如果您从另一个Perl程序加载它，则“except(caller){…}”代码不会运行。然后在你的测试程序中，声明一个命名空间(因为脚本可能运行在主程序包:)中的代码和’做’脚本。
#!/usr/bin/perl
package Tests::Script; # avoid the Test:: namespace to avoid conflicts
# with testing modules
use strict;
use warnings;
do 'some_script' or die "Cannot (do 'some_script'): $!";
# write your tests
“做”比eval更有效率，而且相当干净。
测试脚本的另一个技巧是使用Expect.这是更干净，但也更难使用，如果你需要模拟任何东西，它不会让你覆盖脚本中的任何东西。