[libnet-dbus-perl] 140/335: Update to be compatible with examples in GLib & Python
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:39 UTC 2015
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 1cdf97ced9aa3158bbdf839e196b02b4349ffb0d
Author: Daniel P. Berrange <dan at berrange.com>
Date: Sun Oct 23 15:17:49 2005 +0000
Update to be compatible with examples in GLib & Python
---
examples/example-client.pl | 13 ++++++++-----
examples/example-service.pl | 12 ++++++------
examples/example-signal-emitter.pl | 7 +++----
examples/example-signal-receiver.pl | 7 ++++---
4 files changed, 21 insertions(+), 18 deletions(-)
diff --git a/examples/example-client.pl b/examples/example-client.pl
index d671a63..0a50bc2 100644
--- a/examples/example-client.pl
+++ b/examples/example-client.pl
@@ -22,8 +22,11 @@ my $dict = $object->GetDict();
print "{", join(", ", map { "'$_': '" . $dict->{$_} . "'"} keys %{$dict}), "}\n";
-$object->name("John Doe");
-$object->age(21);
-$object->email('john.doe at example.com');
-
-print $object->name, " ", $object->age, " ", $object->email, "\n";
+if (0) {
+ $object->name("John Doe");
+ $object->age(21);
+#$object->email('john.doe at example.com');
+
+ print $object->name, " ", " ", $object->email, "\n";
+
+}
diff --git a/examples/example-service.pl b/examples/example-service.pl
index 04efacc..a3a12e2 100644
--- a/examples/example-service.pl
+++ b/examples/example-service.pl
@@ -13,11 +13,11 @@ package SomeObject;
use base qw(Net::DBus::Object);
use Net::DBus::Exporter qw(org.designfu.SampleInterface);
-use Class::MethodMaker [ scalar => [ qw(name email age) ]];
+#use Class::MethodMaker [ scalar => [ qw(name email age) ]];
-dbus_property("name", "string");
-dbus_property("email", "string", "read");
-dbus_property("age", "int32", "write");
+#dbus_property("name", "string");
+#dbus_property("email", "string", "read");
+#dbus_property("age", "int32", "write");
sub new {
my $class = shift;
@@ -41,14 +41,14 @@ dbus_method("GetDict", [], [["dict", "string", "string"]]);
sub GetDict {
my $self = shift;
print "Do get dict\n";
- return {"first" => "Hello Dict", "second" => " from example-service.py"};
+ 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";
- return ["Hello Tuple", " from example-service.py"];
+ return ["Hello Tuple", " from example-service.pl"];
}
package main;
diff --git a/examples/example-signal-emitter.pl b/examples/example-signal-emitter.pl
index 2dde6b0..851a509 100644
--- a/examples/example-signal-emitter.pl
+++ b/examples/example-signal-emitter.pl
@@ -26,13 +26,12 @@ sub new {
return $self;
}
-dbus_signal("hello", ["string"]);
-dbus_method("emitHelloSignal", ["string"]);
+dbus_signal("HelloSignal", ["string"]);
+dbus_method("emitHelloSignal");
sub emitHelloSignal {
my $self = shift;
- my $name = shift;
print "Got request to send hello signal\n";
- return $self->emit_signal("hello", "Hello " . $name);
+ return $self->emit_signal("HelloSignal", "Hello");
}
diff --git a/examples/example-signal-receiver.pl b/examples/example-signal-receiver.pl
index 4e2a5a1..dd20945 100644
--- a/examples/example-signal-receiver.pl
+++ b/examples/example-signal-receiver.pl
@@ -11,20 +11,21 @@ use Carp qw(confess cluck);
my $bus = Net::DBus->session();
my $service = $bus->get_service("org.designfu.TestService");
-my $object = $service->get_object("/org/designfu/TestService/object");
+my $object = $service->get_object("/org/designfu/TestService/object",
+ "org.designfu.TestService");
sub hello_signal_handler {
my $greeting = shift;
print "Received hello signal with greeting '$greeting'\n";
}
-$object->connect_to_signal("hello", \&hello_signal_handler);
+$object->connect_to_signal("HelloSignal", \&hello_signal_handler);
my $reactor = Net::DBus::Reactor->main();
my $ticks = 0;
$reactor->add_timeout(1000, Net::DBus::Callback->new(method => sub {
- $object->emitHelloSignal("John Doe");
+ $object->emitHelloSignal();
if ($ticks++ == 10) {
$reactor->shutdown();
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git
More information about the Pkg-perl-cvs-commits
mailing list