t/lib/testinclude/DBICTestConfig.pm

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