Viciously deal with more strictures fallout
[dbsrgits/DBIx-Class-Historic.git] / t / lib / testinclude / DBICTestConfig.pm
CommitLineData
7b71391b 1package DBICTestConfig;
4a233f30 2
3use warnings;
4use strict;
5
27a701f9 6use base 'DBICTest::BaseSchema';
7b71391b 7
8sub 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
191;