Commit | Line | Data |
---|---|---|
14b1bd2b | 1 | package TestSchemaBaseClass; |
f8c2ca5e | 2 | use strict; |
3 | use warnings; | |
4 | ||
5 | use base 'DBIx::Class::Schema'; | |
14b1bd2b | 6 | |
7 | our $test_ok = 0; | |
8 | ||
9 | sub connection { | |
10 | my ($self, @info) = @_; | |
11 | ||
12 | if ($info[0] =~ /^dbi/) { | |
50b95db6 | 13 | $test_ok++; |
14b1bd2b | 14 | } |
15 | ||
16 | return $self->next::method(@info); | |
17 | } | |
18 | ||
f104db1e | 19 | sub testschemabaseclass { 'TestSchemaBaseClass works' } |
20 | ||
14b1bd2b | 21 | 1; |