#!perl
use strictures;
use Test::More;

subtest "Prod" => sub {
    plan skip_all => "Set PROD_TEST to run" unless $ENV{PROD_TEST};
    ok 1, "OHAI, PROD!";
    done_testing(1);
};

subtest "Dev" => sub {
    plan skip_all => "Set DEV_TEST to run" unless $ENV{DEV_TEST};
    ok 1, "OHAI, DEV!";
    done_testing(1);
};

done_testing(2);

##</code><code>##

#!perl
# File: runner.t
use strictures;
use App::Prove;

for my $env (qw/ PROD DEV /)
{
    my $test = join "_", $env, "TEST";
    local $ENV{$test} = 1;
    my $app = App::Prove->new;

    $app->process_args( -I => "./",
                        -v => "run.t.raw" );

    eval { $app->run } or die "Failed... not proceeding: $@";
}

##</code><code>##

prove -v run.t.raw
run.t.raw .. 
# Subtest: Prod
    1..0 # SKIP Set PROD_TEST to run
ok 1 # skip Set PROD_TEST to run
# Subtest: Dev
    1..0 # SKIP Set DEV_TEST to run
ok 2 # skip Set DEV_TEST to run
1..2
ok
All tests successful.
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.01 sys +  0.06 cusr  0.01 csys =  0.10 CPU)
Result: PASS

##</code><code>##

prove runner.t 
runner.t .. All 2 subtests passed 
        (less 2 skipped subtests: 0 okay)

Test Summary Report
-------------------
runner.t (Wstat: 0 Tests: 6 Failed: 4)
  Failed tests:  1-3, 6
  Parse errors: Plan (1..2) must be at the beginning or end of the TAP output
                Tests out of sequence.  Found (1) but expected (4)
                Tests out of sequence.  Found (2) but expected (5)
                More than one plan found in TAP output
                Bad plan.  You planned 2 tests but ran 6.
Files=1, Tests=6,  0 wallclock secs ( 0.01 usr  0.01 sys +  0.18 cusr  0.05 csys =  0.25 CPU)
Result: FAIL

##</code><code>##

perl runner.t
# …
All tests successful.