[libnet-dbus-perl] 110/335: Dont use Class::MethodMaker. Fix to use append_variant instead of append_string

[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 15795da93e79c9b06c4a100266a55b3013271967
Author: Daniel P. Berrange <d...@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('j...@example.com');
+    $iter->append_variant('j...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits