projects
/
scpubgit/Object-Remote.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
add all scripts
[scpubgit/Object-Remote.git]
/
t
/
lib
/
ORTestClass.pm
diff --git
a/t/lib/ORTestClass.pm
b/t/lib/ORTestClass.pm
index
7e64bf1
..
0751492
100644
(file)
--- a/
t/lib/ORTestClass.pm
+++ b/
t/lib/ORTestClass.pm
@@
-8,4
+8,10
@@
sub increment { $_[0]->_set_counter($_[0]->counter + 1); }
sub pid { $$ }
+sub call_callback {
+ my ($self, $value, $cb) = @_;
+ $cb->();
+ return $value;
+}
+
1;