[libnet-dbus-perl] 171/335: Added convenience method for getting a logical child of an object, using a relative path
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:48 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 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
More information about the Pkg-perl-cvs-commits
mailing list