Commit | Line | Data |
e63453e3 |
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 | sub call_callback { |
12 | my ($self, $value, $cb) = @_; |
13 | $cb->(); |
14 | return $value; |
15 | } |
16 | |
17 | 1; |