use Test::More;
use Sys::Hostname qw(hostname);
+$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;
+
use Object::Remote;
$ENV{PERL5LIB} = join(
is($x, 1, "Callback called callback");
is(
- $connection->remote_sub('Sys::Hostname::hostname')->(),
+ Sys::Hostname->can::on($connection, 'hostname')->(),
hostname(),
'Remote sub call ok'
);