4 use Object::Remote::Connector::Local;
6 use Object::Remote::ModuleSender;
9 ':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib)
12 my $connection = Object::Remote::Connector::Local->new->connect;
14 my $ms = Object::Remote::ModuleSender->new(
15 dir_list => [ 't/lib' ]
18 my $ml = Object::Remote->new(
19 connection => $connection,
20 class => 'Object::Remote::ModuleLoader',
21 args => { module_sender => $ms },
24 my $counter = Object::Remote->new(
25 connection => $connection,
26 class => 'ORTestClass'
29 isnt($$, $counter->pid, 'Different pid on the other side');
31 is($counter->counter, 0, 'Counter at 0');
33 is($counter->increment, 1, 'Increment to 1');
35 is($counter->counter, 1, 'Counter at 1');