[libnet-dbus-perl] 171/335: Added convenience method for getting a logical child of an object, using a relative path

[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 efbe6b2f374e8c00e7d6a23ca0eba7c8f7697981
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Fri Jan 6 15:30:08 2006 +0000

    Added convenience method for getting a logical child of an object, using a relative path
---
 lib/Net/DBus/RemoteObject.pm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/lib/Net/DBus/RemoteObject.pm b/lib/Net/DBus/RemoteObject.pm
index 955c5b3..b922970 100644
--- a/lib/Net/DBus/RemoteObject.pm
+++ b/lib/Net/DBus/RemoteObject.pm
@@ -16,13 +16,13 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
-# $Id: RemoteObject.pm,v 1.18 2005/11/21 11:39:10 dan Exp $
+# $Id: RemoteObject.pm,v 1.19 2006/01/06 15:30:08 dan Exp $
 
 =pod
 
 =head1 NAME
 
-Net::DBus::RemoteObject - access objects on the bus
+Net::DBus::RemoteObject - Access objects provided on the bus
 
 =head1 SYNOPSIS
 
@@ -146,6 +146,18 @@ sub get_object_path {
     return $self->{object_path};
 }
 
+
+sub get_child_object {
+    my $self = shift;
+    my $path = shift;
+    my $interface = @_ ? shift : undef;
+    my $fullpath = $self->{object_path} . $path;
+    
+    return $self->new($self->get_service,
+		      $fullpath,
+		      $interface);
+}
+
 sub _introspector {
     my $self = shift;
     
@@ -343,6 +355,8 @@ sub _call_method {
 	    method_name => $name,
 	    interface => $interface);
 
+    #$call->set_destination($self->get_service->get_owner_name);
+
     if ($ins) {
 	$ins->encode($call, "methods", $name, "params", @_);
     } else {

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