projects
/
scpubgit/Object-Remote.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7e64bf15691843a577ac3e9ad9b6ae45b493719b
[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
1;