47 lines
1.0 KiB
Perl
47 lines
1.0 KiB
Perl
#/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use Net::DBus;
|
|
use Net::DBus::Reactor;
|
|
use Net::DBus::Annotation qw(:call);
|
|
|
|
my $bus = Net::DBus->session();
|
|
|
|
my $service = $bus->get_service("org.designfu.SampleService");
|
|
my $object = $service->get_object("/SomeObject");
|
|
|
|
print "Doing async call\n";
|
|
my $reply = $object->HelloWorld(dbus_call_async, "Hello from example-client.pl!");
|
|
|
|
my $r = Net::DBus::Reactor->main;
|
|
|
|
sub all_done {
|
|
my $reply = shift;
|
|
my $list = $reply->get_result;
|
|
print "[", join(", ", map { "'$_'" } @{$list}), "]\n";
|
|
|
|
$r->shutdown;
|
|
}
|
|
|
|
print "Setting notify\n";
|
|
$reply->set_notify(\&all_done);
|
|
|
|
sub tick {
|
|
print "Tick-tock\n";
|
|
}
|
|
|
|
|
|
print "Adding timer\n";
|
|
$r->add_timeout(500, \&tick);
|
|
|
|
print "Entering main loop\n";
|
|
$r->run;
|
|
|
|
# Call with a 15 second timeout, should still work
|
|
print "Reply ", join(',', @{$object->HelloWorld(dbus_call_timeout, 15000, "Eeek")}), "\n";
|
|
|
|
# Call with a 5 second timeout should fail
|
|
print "Reply ", join(',', @{$object->HelloWorld(dbus_call_timeout, 5000, "Eeek")}), "\n";
|