package DBIx::Class::TestSchemaComponent;

use strict;
use warnings;

our $test_component_ok = 0;

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

    $test_component_ok++;

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

sub dbix_class_testschemacomponent { 'dbix_class_testschemacomponent works' }

1;