force-load Moo::HandleMoose::_TypeMap

[scpubgit/Object-Remote.git] / t / lib / ORTestClass.pm

diff --git a/t/lib/ORTestClass.pm b/t/lib/ORTestClass.pm
index 7e64bf1..0751492 100644 (file)
--- a/t/lib/ORTestClass.pm
+++ b/t/lib/ORTestClass.pm
@@ -8,4 +8,10 @@ sub increment { $_[0]->_set_counter($_[0]->counter + 1); }
 
 sub pid { $$ }
 
+sub call_callback {
+  my ($self, $value, $cb) = @_;
+  $cb->();
+  return $value;
+}
+
 1;