Author: mcpierce
Date: Wed Dec 5 12:33:18 2012
New Revision: 1417387
URL: http://svn.apache.org/viewvc?rev=1417387&view=rev
Log:
NO-JIRA: Removed second copy of Messenger code.
Wen the classes were split out to separate source modules, the Messenger
code was mistakenly left in the new Message.pm module.
Modified:
qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm
Modified: qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm
URL:
http://svn.apache.org/viewvc/qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm?rev=1417387&r1=1417386&r2=1417387&view=diff
==============================================================================
--- qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm
(original)
+++ qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm Wed Dec
5 12:33:18 2012
@@ -256,130 +256,5 @@ sub get_reply_to_group_id {
return cproton_perl::pn_message_get_reply_to_group_id($self->{_impl});
}
-
-
-package qpid::proton::Messenger;
-
-sub new {
- my ($class) = @_;
- my ($self) = {};
-
- my $impl = cproton_perl::pn_messenger($_[1]);
- $self->{_impl} = $impl;
-
- bless $self, $class;
- return $self;
-}
-
-sub DESTROY {
- my ($self) = @_;
- cproton_perl::pn_messenger_stop($self->{_impl});
- cproton_perl::pn_messenger_free($self->{_impl});
-}
-
-sub get_name {
- my ($self) = @_;
- return cproton_perl::pn_messenger_get_name($self->{_impl});
-}
-
-sub set_timeout {
- my ($self) = @_;
- cproton_perl::pn_messenger_set_timeout($self->{_impl}, $_[1]);
-}
-
-sub get_timeout {
- my ($self) = @_;
- return cproton_perl::pn_messenger_get_timeout($self->{_impl});
-}
-
-sub get_error {
- my ($self) = @_;
- return cproton_perl::pn_messenger_error($self->{_impl});
-}
-
-sub get_errno {
- my ($self) = @_;
- return cproton_perl::pn_messenger_errno($self->{_impl});
-}
-
-sub start {
- my ($self) = @_;
- cproton_perl::pn_messenger_start($self->{_impl});
-}
-
-sub stop {
- my ($self) = @_;
- cproton_perl::pn_messenger_stop($self->{_impl});
-}
-
-sub subscribe {
- my ($self) = @_;
- cproton_perl::pn_messenger_subscribe($self->{_impl}, $_[1]);
-}
-
-sub set_certificate {
- my ($self) = @_;
- cproton_perl::pn_messenger_set_certificate($self->{_impl}, $_[1]);
-}
-
-sub get_certificate {
- my ($self) = @_;
- return cproton_perl::pn_messenger_get_certificate($self->{_impl});
-}
-
-sub set_private_key {
- my ($self) = @_;
- cproton_perl::pn_messenger_set_private_key($self->{_impl}, $_[1]);
-}
-
-sub get_private_key {
- my ($self) = @_;
- return cproton_perl::pn_messenger_get_private_key($self->{_impl});
-}
-
-sub set_trusted_certificates {
- my ($self) = @_;
- cproton_perl::pn_messenger_set_trusted_certificates($self->{_impl}, $_[1]);
-}
-
-sub get_trusted_certificates {
- my ($self) = @_;
- return cproton_perl::pn_messenger_get_trusted_certificates($self->{_impl});
-}
-
-sub put {
- my ($self) = @_;
- my $message = $_[1];
- cproton_perl::pn_messenger_put($self->{_impl}, $message->get_impl);
-}
-
-sub send {
- my ($self) = @_;
- cproton_perl::pn_messenger_send($self->{_impl});
-}
-
-sub get {
- my ($self) = @_;
-
- my $message = $_[1] || new proton::Message();
- cproton_perl::pn_messenger_get($self->{_impl}, $message->get_impl());
- return $message;
-}
-
-sub receive {
- my ($self) = @_;
- cproton_perl::pn_messenger_recv($self->{_impl}, $_[1]);
-}
-
-sub outgoing {
- my ($self) = @_;
- return cproton_perl::pn_messenger_outgoing($self->{_impl});
-}
-
-sub incoming {
- my ($self) = @_;
- return cproton_perl::pn_messenger_incoming($self->{_impl});
-}
-
1;
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
