use strictures; use Test::More; my @config = qw/ PROD DEV /; for my $env ( @config ) { my $test = join "_", $env, "TEST"; local $ENV{$test} = 1; subtest "$env" => sub { do "run.t.raw"; # The raw test reports its plan. }; } done_testing( scalar @config );