Viciously deal with more strictures fallout
[dbsrgits/DBIx-Class-Historic.git] / 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;