Select Code to Download

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

done_testing(2);

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

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

prove -v run.t.raw
run.t.raw .. 
# Subtest: Prod
...
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

prove runner.t 
runner.t .. All 2 subtests passed 
...
                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

perl runner.t
# …
All tests successful.