projects
/
scpubgit/TenDotTcl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0751492b1ea4394dba1d3fcd005ddc08c654a080
[scpubgit/TenDotTcl.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;