You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@qpid.apache.org by mc...@apache.org on 2014/02/11 16:15:14 UTC
svn commit: r1567173 - in /qpid/trunk/qpid/cpp/bindings/qpid:
examples/perl/drain.pl examples/perl/spout.pl
perl/lib/qpid/messaging/Message.pm
Author: mcpierce
Date: Tue Feb 11 15:15:14 2014
New Revision: 1567173
URL: http://svn.apache.org/r1567173
Log:
QPID-5546: Expose the get_content_object method in Perl.
Updated the spout and drain examples to use this rather than
encode/decode to retrieve the content of a message.
Modified:
qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl
qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/spout.pl
qpid/trunk/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Message.pm
Modified: qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl
URL: http://svn.apache.org/viewvc/qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl?rev=1567173&r1=1567172&r2=1567173&view=diff
==============================================================================
--- qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl (original)
+++ qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl Tue Feb 11 15:15:14 2014
@@ -92,13 +92,13 @@ eval {
# if the message content was a map, then we will print
# it out as a series of name => value pairs
+ my $content = $message->get_content_object;
if ( $message->get_content_type() eq "amqp/map" ) {
- my $content = $message->get_content();
map { print "\n$_ => $content->{$_}"; } keys %{$content};
}
else {
# it's not a map, so just print the content as a string
- print $message->get_content();
+ print $content;
}
print "')\n";
Modified: qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/spout.pl
URL: http://svn.apache.org/viewvc/qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/spout.pl?rev=1567173&r1=1567172&r2=1567173&view=diff
==============================================================================
--- qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/spout.pl (original)
+++ qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/spout.pl Tue Feb 11 15:15:14 2014
@@ -91,7 +91,7 @@ eval {
if (@entries) {
my $content = {};
setEntries($content);
- $message->set_content($content);
+ $message->set_content_object($content);
}
elsif ($content) {
$message->set_content($content);
Modified: qpid/trunk/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Message.pm
URL: http://svn.apache.org/viewvc/qpid/trunk/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Message.pm?rev=1567173&r1=1567172&r2=1567173&view=diff
==============================================================================
--- qpid/trunk/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Message.pm (original)
+++ qpid/trunk/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Message.pm Tue Feb 11 15:15:14 2014
@@ -527,6 +527,39 @@ sub get_properties {
=pod
+=head2 CONTENT OBJECT
+
+The message content, represented as anh object.
+
+=over
+
+=item $msg->set_content_object( \%content )
+
+=item $content = $msg->get_Content_object
+
+=back
+
+=cut
+
+sub set_content_object {
+ my ($self) = @_;
+ my $impl = $self->{_impl};
+
+ my $content = $_[1];
+
+ $impl->setContentObject($content);
+}
+
+sub get_content_object {
+ my ($self) = @_;
+ my $impl = $self->{_impl};
+ my $content = $impl->getContentObject;
+
+ return $content;
+}
+
+=pod
+
=head2 CONTENT
The message content.
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org