4 use Object::Remote::Connector::Local;
6 use Object::Remote::ModuleSender;
9 ':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib)
12 my $ms = Object::Remote::ModuleSender->new(
13 dir_list => [ 't/lib' ]
16 my $connection = Object::Remote::Connector::Local->new(
20 my $counter = Object::Remote->new(
21 connection => $connection,
22 class => 'ORTestClass'
25 isnt($$, $counter->pid, 'Different pid on the other side');
27 is($counter->counter, 0, 'Counter at 0');
29 is($counter->increment, 1, 'Increment to 1');
31 is($counter->counter, 1, 'Counter at 1');