Perl测试::更多阻止之前

Question

Test :: More是否有某种机制在每个子测试之前运行一段代码？我发现自己在每次测试中都写了相同的安排,我想通过把它放在一个块之前的东西来让我的生活更轻松？我看了一下perldocs,但是我没有看到为此特别建造的东西？

Answer 1

自己很容易做到:

use Hook::LexWrap qw( wrap );

wrap $_, pre => sub { ... }
   for qw( is ok ... );