From ccd084384002bcdbbc549b4e1d3c339c00ea9e18 Mon Sep 17 00:00:00 2001
From: "Darryl L. Pierce" <mcpierce@apache.org>
Date: Thu, 31 Jul 2014 13:46:25 +0000
Subject: QPID-5939: Add get_address to Perl Sender/Receiver classes.

Updated the Perl client/server examples.

git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk/qpid@1614889 13f79535-47bb-0310-9956-ffa450edef68
---
 cpp/bindings/qpid/examples/perl/client.pl          |  6 ++----
 .../qpid/perl/lib/qpid/messaging/Receiver.pm       | 20 ++++++++++++++++++++
 .../qpid/perl/lib/qpid/messaging/Sender.pm         | 22 ++++++++++++++++++++++
 3 files changed, 44 insertions(+), 4 deletions(-)

(limited to 'cpp/bindings')

diff --git a/cpp/bindings/qpid/examples/perl/client.pl b/cpp/bindings/qpid/examples/perl/client.pl
index 586beb787e..ee7bc6cd53 100755
--- a/cpp/bindings/qpid/examples/perl/client.pl
+++ b/cpp/bindings/qpid/examples/perl/client.pl
@@ -38,10 +38,8 @@ eval {
     # create an address and receiver for incoming messages
     # the queue will be created always, and will be deleted
     # when the receive disconnects
-    my $responseQueue = new qpid::messaging::Address(
-        "#response-queue; {create:always, delete:always}");
-    my $receiver = $session->create_receiver($responseQueue);
-
+    my $receiver = $session->create_receiver("#");
+    my $responseQueue = $receiver->get_address();
     # Now send some messages...
 
     my @s = (
diff --git a/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm b/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm
index c3bc4bb8a8..64ee9f63b5 100644
--- a/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm
+++ b/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm
@@ -298,6 +298,26 @@ sub get_session {
 
 =pod
 
+Returns the address for this receiver.
+
+=over
+
+=item $address = $receiver->get_address
+
+=back
+
+=cut
+
+sub get_address {
+    my ($self) = @_;
+    my $impl = $self->{_impl};
+    my $address = $impl->getAddress;
+
+    return new qpid::messaging::Address($address);
+}
+
+=pod
+
 =over
 
 =item $receiver->is_closed
diff --git a/cpp/bindings/qpid/perl/lib/qpid/messaging/Sender.pm b/cpp/bindings/qpid/perl/lib/qpid/messaging/Sender.pm
index 5d0896ff79..bb67826a5e 100644
--- a/cpp/bindings/qpid/perl/lib/qpid/messaging/Sender.pm
+++ b/cpp/bindings/qpid/perl/lib/qpid/messaging/Sender.pm
@@ -255,4 +255,26 @@ sub get_session {
     return $self->{_session};
 }
 
+=pod
+
+=head2 ADDRESS
+
+Returns the address for this sender.
+
+=over
+
+=item $address = $sender->get_address
+
+=back
+
+=cut
+
+sub get_address {
+    my ($self) = @_;
+    my $impl = $self->{_impl};
+    my $address = $impl->getAddress;
+
+    return new qpid::messaging::Address($address);
+}
+
 1;
-- 
cgit v1.2.1