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 <[email protected]> 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 [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
