X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBIx%2FClass%2FTestSchemaComponent.pm;h=e277880b7e7dd50f5a17c2e718d1d8be137c4b30;hb=50b95db6f08695f02fd804bc71c6c222cd310d05;hp=6e83dc6ce1c4293727fcfea413eb00589a7d09fe;hpb=310f3603f4dee670ce5b733c862c62c35d96cd3c;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/t/lib/DBIx/Class/TestSchemaComponent.pm b/t/lib/DBIx/Class/TestSchemaComponent.pm index 6e83dc6..e277880 100644 --- a/t/lib/DBIx/Class/TestSchemaComponent.pm +++ b/t/lib/DBIx/Class/TestSchemaComponent.pm @@ -8,7 +8,7 @@ our $test_component_ok = 0; sub connection { my ($self, @info) = @_; - $test_component_ok = 1; + $test_component_ok++; return $self->next::method(@info); }