package TestSchemaBaseClass;
use base DBIx::Class::Schema;
our $test_ok = 0;
sub connection {
my ($self, @info) = @_;
if ($info[0] =~ /^dbi/) {
$test_ok++;
}
return $self->next::method(@info);
}
sub testschemabaseclass { 'TestSchemaBaseClass works' }
1;