t/lib/ORTestClass.pm

   1 package ORTestClass;
   2
   3 use Moo;
   4
   5 has counter => (is => 'rwp', default => sub { 0 });
   6
   7 sub increment { $_[0]->_set_counter($_[0]->counter + 1); }
   8
   9 sub pid { $$ }
  10
  11 1;