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 7d5a0fcc305a1b555f47ee701f14c6d6948a0f16 Author: Daniel P. Berrange <[email protected]> Date: Mon Sep 26 19:25:09 2005 +0000 Added accessors for getting serial & sender --- lib/Net/DBus/Binding/Message.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lib/Net/DBus/Binding/Message.pm b/lib/Net/DBus/Binding/Message.pm index 1694b2e..513c39b 100644 --- a/lib/Net/DBus/Binding/Message.pm +++ b/lib/Net/DBus/Binding/Message.pm @@ -110,12 +110,22 @@ sub get_sender { return $self->{message}->dbus_message_get_sender; } +sub get_serial { + my $self = shift; + + return $self->{message}->dbus_message_get_serial; +} + sub get_member { my $self = shift; return $self->{message}->dbus_message_get_member; } +sub set_sender { + my $self = shift; + $self->{message}->dbus_message_set_sender(@_); +} =pod -- 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 [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
