qpid-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mcpie...@apache.org
Subject svn commit: r1417387 - /qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm
Date Wed, 05 Dec 2012 12:33:19 GMT
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: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org


Mime
View raw message