[libnet-dbus-perl] 110/335: Dont use Class::MethodMaker. Fix to use append_variant instead of append_string
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:34 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 15795da93e79c9b06c4a100266a55b3013271967
Author: Daniel P. Berrange <dan at berrange.com>
Date: Mon Sep 26 19:22:39 2005 +0000
Dont use Class::MethodMaker. Fix to use append_variant instead of append_string
---
t/60-object-props.t | 28 ++++++++++++++++++++++++----
1 file changed, 24 insertions(+), 4 deletions(-)
diff --git a/t/60-object-props.t b/t/60-object-props.t
index e300822..9d3ff16 100644
--- a/t/60-object-props.t
+++ b/t/60-object-props.t
@@ -14,7 +14,27 @@ package MyObject;
use base qw(Net::DBus::Object);
use Net::DBus::Exporter qw(org.example.MyObject);
-use Class::MethodMaker [ scalar => ["name", "email", "age" ]];
+# Typically one would use Class::MethodMaker, but I don't
+# want to add a hard dependancy for the test suite.
+#use Class::MethodMaker [ scalar => ["name", "email", "age" ]];
+
+sub name {
+ my $self = shift;
+ $self->{name} = shift if @_;
+ return $self->{name};
+}
+
+sub email {
+ my $self = shift;
+ $self->{email} = shift if @_;
+ return $self->{email};
+}
+
+sub age {
+ my $self = shift;
+ $self->{age} = shift if @_;
+ return $self->{age};
+}
dbus_property("name", "string");
dbus_property("email", "string", "read");
@@ -128,7 +148,7 @@ sub GET_SET_NAME: {
$iter = $msg2->iterator(1);
$iter->append_string("org.example.MyObject");
$iter->append_string("name");
- $iter->append_string("Jane Doe");
+ $iter->append_variant("Jane Doe");
$object->_dispatch($service->get_bus->get_connection, $msg2);
$reply = $service->get_bus->get_connection->next_message;
@@ -165,7 +185,7 @@ SET_AGE: {
$iter = $msg2->iterator(1);
$iter->append_string("org.example.MyObject");
$iter->append_string("age");
- $iter->append_int32(21);
+ $iter->append_variant(21);
$object->_dispatch($service->get_bus->get_connection, $msg2);
my $reply = $service->get_bus->get_connection->next_message;
@@ -202,7 +222,7 @@ GET_EMAIL: {
$iter = $msg2->iterator(1);
$iter->append_string("org.example.MyObject");
$iter->append_string("email");
- $iter->append_string('jane at example.com');
+ $iter->append_variant('jane at example.com');
$object->_dispatch($service->get_bus->get_connection, $msg2);
my $reply = $service->get_bus->get_connection->next_message;
--
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