#!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: $@";
}