[libnet-dbus-perl] 85/335: Add simple methods for getting & appending a list of args without explicit type data
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:30 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 ef8ea311a2580031fb06581812d6db45f7913289
Author: Daniel P. Berrange <dan at berrange.com>
Date: Mon Aug 29 12:38:01 2005 +0000
Add simple methods for getting & appending a list of args without explicit type data
---
lib/Net/DBus/Binding/Message.pm | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
diff --git a/lib/Net/DBus/Binding/Message.pm b/lib/Net/DBus/Binding/Message.pm
index 164b680..77da766 100644
--- a/lib/Net/DBus/Binding/Message.pm
+++ b/lib/Net/DBus/Binding/Message.pm
@@ -140,6 +140,30 @@ sub iterator {
}
}
+sub get_args_list {
+ my $self = shift;
+
+ my @ret;
+ my $iter = $self->iterator;
+ if ($iter->get_arg_type() != &Net::DBus::Binding::Message::TYPE_INVALID) {
+ do {
+ push @ret, $iter->get();
+ } while ($iter->next);
+ }
+
+ return @ret;
+}
+
+
+sub append_args_list {
+ my $self = shift;
+ my @args = @_;
+
+ my $iter = $self->iterator(1);
+ foreach my $arg (@args) {
+ $iter->append($arg);
+ }
+}
# To keep autoloader quiet
--
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