t/lib/TestSchemaBaseClass.pm

   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++;
  11     }
  12
  13     return $self->next::method(@info);
  14 }
  15
  16 sub testschemabaseclass { 'TestSchemaBaseClass works' }
  17
  18 1;