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

package DBICTestAdminInc;
use base 'DBICTest::BaseSchema';

sub connect { exit 70 } # this is what the test will expect to see

1;