[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / TestSchemaBaseClass.pm

package TestSchemaBaseClass;
use strict;
use warnings;

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