forward agent
[scpubgit/Object-Remote.git] / t / lib / ORTestClass.pm
CommitLineData
b63a955f 1package ORTestClass;
2
3use Moo;
4
5has counter => (is => 'rwp', default => sub { 0 });
6
7sub increment { $_[0]->_set_counter($_[0]->counter + 1); }
8
9sub pid { $$ }
10
fe6c9a7f 11sub call_callback {
12 my ($self, $value, $cb) = @_;
13 $cb->();
14 return $value;
15}
16
b63a955f 171;