[libnet-dbus-perl] 25/335: Added emit signal method

[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 25e390f4981ece96494ca02943c7444b409bc646
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Tue Nov 23 23:25:07 2004 +0000

    Added emit signal method
---
 lib/Net/DBus/Object.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/lib/Net/DBus/Object.pm b/lib/Net/DBus/Object.pm
index bfad5ad..a9aa21b 100644
--- a/lib/Net/DBus/Object.pm
+++ b/lib/Net/DBus/Object.pm
@@ -33,7 +33,21 @@ sub new {
     
     return $self;
 }
-   
+
+
+sub emit_signal {
+    my $self = shift;
+    my $interface = shift;
+    my $signal_name = shift;
+    my $signal = Net::DBus::Binding::Message::Signal->new(object_path => $self->{object_path},
+							  interface => $interface, 
+							  signal_name => $signal_name);
+    my $iter = $signal->iterator;
+    foreach my $ret (@_) {
+	$iter->append($ret);
+    }
+    $self->{service}->get_bus()->get_connection()->send($signal);
+}   
 
 sub _dispatch {
     my $self = shift;

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