X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Flib%2FORTestClass.pm;h=0751492b1ea4394dba1d3fcd005ddc08c654a080;hp=7e64bf15691843a577ac3e9ad9b6ae45b493719b;hb=fe6c9a7f0f8b12f9424ed3aa7ea6c4a783581ce9;hpb=a76f2f60f38f21af50f878ea9dbd7f0670edf9f3

diff --git a/t/lib/ORTestClass.pm b/t/lib/ORTestClass.pm
index 7e64bf1..0751492 100644
--- 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;