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 <d...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to