Commit | Line | Data |
---|---|---|
7b71391b | 1 | package DBICTestConfig; |
2 | use base 'DBIx::Class::Schema'; | |
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; |