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;