projects
/
scpubgit/Object-Remote.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
remove old debugging code; fix ::ModuleSender not returning code from ::FromData
[scpubgit/Object-Remote.git]
/
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
sub call_callback {
12
my ($self, $value, $cb) = @_;
13
$cb->();
14
return $value;
15
}
16
17
1;