t/lib/TestSchemaBaseClass.pm

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