4 require 't/logsetup.pl';
6 use Object::Remote::Connector::Local;
8 use Object::Remote::ModuleSender;
10 $ENV{PERL5LIB} = join(
11 ':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib)
14 my $ms = Object::Remote::ModuleSender->new(
15 dir_list => [ 't/lib' ]
18 my $connection = Object::Remote::Connector::Local->new(
22 my $counter = Object::Remote->new(
23 connection => $connection,
24 class => 'ORTestClass'
27 isnt($$, $counter->pid, 'Different pid on the other side');
29 is($counter->counter, 0, 'Counter at 0');
31 is($counter->increment, 1, 'Increment to 1');
33 is($counter->counter, 1, 'Counter at 1');