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

package TestSchemaBaseClass;
use base DBIx::Class::Schema;

our $test_ok = 0;

sub connection {
    my ($self, @info) = @_;

    if ($info[0] =~ /^dbi/) {
        $test_ok = 1;
    }

    return $self->next::method(@info);
}

sub testschemabaseclass { 'TestSchemaBaseClass works' }

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