| Net-DBus documentation | Contained in the Net-DBus distribution. |
Net::DBus::Binding::Message::MethodReturn - a message encoding a method return
This module is part of the low-level DBus binding APIs, and
should not be used by application code. No guarentees are made
about APIs under the Net::DBus::Binding:: namespace being
stable across releases.
This module provides a convenience constructor for creating a message representing an method return.
Create a message representing a reply to the method call passed in
the call parameter.
Daniel P. Berrange.
Copyright (C) 2005-2006 Daniel P. Berrange
| Net-DBus documentation | Contained in the Net-DBus distribution. |
# -*- perl -*- # # Copyright (C) 2004-2006 Daniel P. Berrange # # This program is free software; You can redistribute it and/or modify # it under the same terms as Perl itself. Either: # # a) the GNU General Public License as published by the Free # Software Foundation; either version 2, or (at your option) any # later version, # # or # # b) the "Artistic License" # # The file "COPYING" distributed along with this file provides full # details of the terms and conditions of the two licenses.
package Net::DBus::Binding::Message::MethodReturn; use 5.006; use strict; use warnings; use Net::DBus; use base qw(Exporter Net::DBus::Binding::Message);
sub new { my $proto = shift; my $class = ref($proto) || $proto; my %params = @_; my $call = exists $params{call} ? $params{call} : die "call parameter is required"; my $msg = exists $params{message} ? $params{message} : Net::DBus::Binding::Message::MethodReturn::_create($call->{message}); my $self = $class->SUPER::new(message => $msg); bless $self, $class; return $self; } 1; __END__