参考 http://blog.ainam.me/2013/04/09/test-more-perl-testing/ use strict; use warnings; use Test::More 'no_plan'; subtest "array" => sub { my $subject; my $setup = sub { $subject = [1, 2, 3, 4] }; my $teardown = sub { $subject = undef }; su…