[libnet-dbus-perl] 151/335: Add binding for get_error_name and get_signature methods on dbus_message.

[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 6327bb6b71db0447f858b21f6f4883d503dbf7d1
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Nov 21 10:54:48 2005 +0000

    Add binding for get_error_name and get_signature methods on dbus_message.
---
 DBus.xs                               | 10 +++++++++-
 lib/Net/DBus/Binding/Message.pm       | 13 ++++++++-----
 lib/Net/DBus/Binding/Message/Error.pm |  9 ++++++++-
 3 files changed, 25 insertions(+), 7 deletions(-)

diff --git a/DBus.xs b/DBus.xs
index 17fd9b9..6aea07d 100644
--- a/DBus.xs
+++ b/DBus.xs
@@ -16,7 +16,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  *
- * $Id: DBus.xs,v 1.16 2005/10/15 14:21:47 dan Exp $
+ * $Id: DBus.xs,v 1.17 2005/11/21 10:54:48 dan Exp $
  */
 
 #include "EXTERN.h"
@@ -830,6 +830,14 @@ const char *
 dbus_message_get_member(msg)
 	DBusMessage *msg;
 
+const char *
+dbus_message_get_error_name(msg)
+	DBusMessage *msg;
+
+const char *
+dbus_message_get_signature(msg)
+	DBusMessage *msg;
+
 void
 dbus_message_set_sender(msg, sender);
 	DBusMessage *msg;
diff --git a/lib/Net/DBus/Binding/Message.pm b/lib/Net/DBus/Binding/Message.pm
index 75a79bc..8cadae1 100644
--- a/lib/Net/DBus/Binding/Message.pm
+++ b/lib/Net/DBus/Binding/Message.pm
@@ -16,7 +16,7 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
-# $Id: Message.pm,v 1.10 2005/10/15 13:31:42 dan Exp $
+# $Id: Message.pm,v 1.11 2005/11/21 10:54:48 dan Exp $
 
 =pod
 
@@ -142,6 +142,12 @@ sub get_member {
     return $self->{message}->dbus_message_get_member;
 }
 
+sub get_signature {
+    my $self = shift;
+    
+    return $self->{message}->dbus_message_get_signature;
+}
+
 sub set_sender {
     my $self = shift;
     $self->{message}->dbus_message_set_sender(@_);
@@ -238,11 +244,8 @@ L<Net::DBus::Binding::Server>, L<Net::DBus::Binding::Connection>, L<Net::DBus::B
 
 Daniel Berrange E<lt>dan at berrange.comE<gt>
 
-=head1 COPYRIGHT AND LICENSE
+=head1 COPYRIGHT
 
 Copyright 2004 by Daniel Berrange
 
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself. 
-
 =cut
diff --git a/lib/Net/DBus/Binding/Message/Error.pm b/lib/Net/DBus/Binding/Message/Error.pm
index 444ba61..63d60ef 100644
--- a/lib/Net/DBus/Binding/Message/Error.pm
+++ b/lib/Net/DBus/Binding/Message/Error.pm
@@ -16,7 +16,7 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #
-# $Id: Error.pm,v 1.3 2005/10/15 13:31:42 dan Exp $
+# $Id: Error.pm,v 1.4 2005/11/21 10:54:48 dan Exp $
 
 package Net::DBus::Binding::Message::Error;
 
@@ -49,4 +49,11 @@ sub new {
     return $self;
 }
 
+
+sub get_error_name {
+    my $self = shift;
+    
+    return $self->{message}->dbus_message_get_error_name;
+}
+
 1;

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