':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib)
);
-my $connection = Object::Remote::Connector::Local->new->connect;
-
my $ms = Object::Remote::ModuleSender->new(
dir_list => [ 't/lib' ]
);
-my $ml = Object::Remote->new(
- connection => $connection,
- class => 'Object::Remote::ModuleLoader',
- args => { module_sender => $ms },
-);
+my $connection = Object::Remote::Connector::Local->new(
+ module_sender => $ms,
+ )->connect;
-my $proxy = Object::Remote->new(
+my $counter = Object::Remote->new(
connection => $connection,
class => 'ORTestClass'
-)->proxy;
+);
-isnt($$, $proxy->pid, 'Different pid on the other side');
+isnt($$, $counter->pid, 'Different pid on the other side');
-is($proxy->counter, 0, 'Counter at 0');
+is($counter->counter, 0, 'Counter at 0');
-is($proxy->increment, 1, 'Increment to 1');
+is($counter->increment, 1, 'Increment to 1');
-is($proxy->counter, 1, 'Counter at 1');
+is($counter->counter, 1, 'Counter at 1');
done_testing;