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

package DBIx::Class::TestSchemaComponent;

use strict;
use warnings;

our $test_component_ok = 0;

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

    $test_component_ok = 1;

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

sub dbix_class_testschemacomponent { 'dbix_class_testschemacomponent works' }

1;
Commit	Line	Data
1fe6af07	1	package DBIx::Class::TestSchemaComponent;
1fe6af07	2
cc15b78f	3	use strict;
	4	use warnings;
	5
	6	our $test_component_ok = 0;
	7
	8	sub connection {
	9	my ($self, @info) = @_;
	10
	11	$test_component_ok = 1;
	12
	13	return $self->next::method(@info);
	14	}
	15
1fe6af07	16	sub dbix_class_testschemacomponent { 'dbix_class_testschemacomponent works' }
	17
	18	1;