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

3 files changed, 44 insertions, 4 deletions

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;