t/lib/DBIx/Class/TestSchemaComponent.pm

   1 package DBIx::Class::TestSchemaComponent;
   2
   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++;
  12
  13     return $self->next::method(@info);
  14 }
  15
  16 sub dbix_class_testschemacomponent { 'dbix_class_testschemacomponent works' }
  17
  18 1;