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