[libnet-dbus-perl] 40/335: Updated example programs to match recent changes to python examples

[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 0f2b28b2310d74e9a93fd772d3d51611f930c9bf
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Feb 21 00:10:49 2005 +0000

    Updated example programs to match recent changes to python examples
---
 examples/example-client.pl          | 12 ++++++++++--
 examples/example-service.pl         | 13 ++++++++++++-
 examples/example-signal-emitter.pl  |  2 +-
 examples/example-signal-receiver.pl |  2 +-
 4 files changed, 24 insertions(+), 5 deletions(-)

diff --git a/examples/example-client.pl b/examples/example-client.pl
index a9fc08b..8c8fa42 100644
--- a/examples/example-client.pl
+++ b/examples/example-client.pl
@@ -8,6 +8,14 @@ my $service = $bus->get_service("org.designfu.SampleService");
 my $object = $service->get_object("/SomeObject",
 				  "org.designfu.SampleInterface");
 
-my $reply = $object->HelloWorld("Hello from example-client.pl!");
+my $list = $object->HelloWorld("Hello from example-client.pl!");
 
-print "[", join(",", @{$reply}), "]\n";
+print "[", join(", ", map { "'$_'" } @{$list}), "]\n";
+
+my $tuple = $object->GetTuple();
+
+print "(", join(", ", map { "'$_'" } @{$tuple}), ")\n";
+
+my $dict = $object->GetDict();
+
+print "{", join(", ", map { "'$_': '" . $dict->{$_} . "'"} keys %{$dict}), "}\n";
diff --git a/examples/example-service.pl b/examples/example-service.pl
index c11b811..964b1dd 100644
--- a/examples/example-service.pl
+++ b/examples/example-service.pl
@@ -34,6 +34,17 @@ sub HelloWorld {
     my $self = shift;
     my $message = shift;
     print $message, "\n";
-    return ["Hello", "from example-service.pl"];
+    return ["Hello", " from example-service.pl"];
 }
 
+sub GetDict {
+    my $self = shift;
+    my $message = shift;
+    return {"first" => "Hello Dict", "second" => " from example-service.py"};
+}
+
+sub GetTuple {
+    my $self = shift;
+    my $message = shift;
+    return Net::DBus::dstruct(["Hello Tuple", " from example-service.py"]);
+}
diff --git a/examples/example-signal-emitter.pl b/examples/example-signal-emitter.pl
index 723a27a..d095b2a 100644
--- a/examples/example-signal-emitter.pl
+++ b/examples/example-signal-emitter.pl
@@ -20,7 +20,7 @@ use base qw(Net::DBus::Object);
 
 sub new {
     my $class = shift;
-    my $self = $class->SUPER::new("/object",
+    my $self = $class->SUPER::new("/org/designfu/TestService/object",
 				  ["emitHelloSignal"],
 				  @_);
     
diff --git a/examples/example-signal-receiver.pl b/examples/example-signal-receiver.pl
index 5f89e07..f870a0c 100644
--- a/examples/example-signal-receiver.pl
+++ b/examples/example-signal-receiver.pl
@@ -6,7 +6,7 @@ use Net::DBus::Reactor;
 my $bus = Net::DBus->session();
 
 my $service = $bus->get_service("org.designfu.TestService");
-my $object  = $service->get_object("/object", 
+my $object  = $service->get_object("/org/designfu/TestService/object", 
 				   "org.designfu.TestService");
 
 sub hello_signal_handler {

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