use strict; use warnings; use Test::More; sub okok { ok 1; } sub okokok { ok 1; } subtest 'ok' => sub { okok; }; my $foo = 1; subtest 'ng' => ($foo == 1 ? \&okok : \&okokok); done_testing; こんな超簡略化してますが、こんなテストコードを書い…