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/) { |
10 | $test_ok = 1; |
11 | } |
12 | |
13 | return $self->next::method(@info); |
14 | } |
15 | |
16 | 1; |