The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use FindBin;

use Module::Load;

local $ENV{CPANPLUS_SOURCE_ENGINE} = 'CPANPLUS::Internals::Source::SQLite';

my $old = select STDERR; $|++;
select $old;             $|++;
my $rv = do("$FindBin::Bin/03_CPANPLUS-Internals-Source.t") or do {
    die $@ if $@;
    die $! if $!;
};