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