[libnet-dbus-perl] 227/335: Add GetDict and GetTuple methods

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch experimental
in repository libnet-dbus-perl.

commit f3197300b81eba34e0413dd7e8ac3c6536e0ad30
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Sat Nov 4 16:26:24 2006 -0500

    Add GetDict and GetTuple methods
---
 examples/example-service-async.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/examples/example-service-async.pl b/examples/example-service-async.pl
index bb29f9d..d4b2f9f 100644
--- a/examples/example-service-async.pl
+++ b/examples/example-service-async.pl
@@ -35,6 +35,22 @@ sub HelloWorld {
     return ["Hello", " from example-service-async.pl"];
 }
 
+dbus_method("GetDict", [], [["dict", "string", "string"]]);
+sub GetDict {
+    my $self = shift;
+    print "Do get dict\n";
+    sleep 10;
+    return {"first" => "Hello Dict", "second" => " from example-service.pl"};
+}
+
+dbus_method("GetTuple", [], [["struct", "string", "string"]]);
+sub GetTuple {
+    my $self = shift;
+    print "Do get tuple\n";
+    sleep 10;
+    return ["Hello Tuple", " from example-service.pl"];
+}
+
 package main;
 
 my $bus = Net::DBus->session();

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git