X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FORTestClass.pm;fp=t%2Flib%2FORTestClass.pm;h=0751492b1ea4394dba1d3fcd005ddc08c654a080;hb=e63453e3095c682598081c24430cf087a850a30e;hp=0000000000000000000000000000000000000000;hpb=47f04c562fa3f1001830a48ec4a9e15717d71976;p=scpubgit%2FTenDotTcl.git

diff --git a/t/lib/ORTestClass.pm b/t/lib/ORTestClass.pm
new file mode 100644
index 0000000..0751492
--- /dev/null
+++ b/t/lib/ORTestClass.pm
@@ -0,0 +1,17 @@
+package ORTestClass;
+
+use Moo;
+
+has counter => (is => 'rwp', default => sub { 0 });
+
+sub increment { $_[0]->_set_counter($_[0]->counter + 1); }
+
+sub pid { $$ }
+
+sub call_callback {
+  my ($self, $value, $cb) = @_;
+  $cb->();
+  return $value;
+}
+
+1;