t/lib/testinclude/DBICTestConfig.pm

   1 package DBICTestConfig;
   2 use base 'DBICTest::BaseSchema';
   3
   4 sub connect {
   5   my($self, @opt) = @_;
   6   @opt == 4
   7     and $opt[0] eq 'klaatu'
   8     and $opt[1] eq 'barada'
   9     and $opt[2] eq 'nikto'
  10     and $opt[3]->{ignore_version}
  11     and exit 71; # this is what the test will expect to see
  12   exit 1;
  13 }
  14
  15 1;