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 2013/12/18 16:45:14 UTC
svn commit: r1551984 -
/qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Constants.pm
Author: mcpierce
Date: Wed Dec 18 15:45:13 2013
New Revision: 1551984
URL: http://svn.apache.org/r1551984
Log:
PROTON-480: Added Tracker status values to Perl bindings.
Modified:
qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Constants.pm
Modified: qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Constants.pm
URL: http://svn.apache.org/viewvc/qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Constants.pm?rev=1551984&r1=1551983&r2=1551984&view=diff
==============================================================================
--- qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Constants.pm (original)
+++ qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Constants.pm Wed Dec 18 15:45:13 2013
@@ -153,4 +153,15 @@ use constant {
INPROGRESS => $cproton_perl::PN_INPROGRESS,
};
+package qpid::proton::Tracker;
+
+use constant {
+ ABORTED => $cproton_perl::PN_STATUS_ABORTED,
+ ACCEPTED => $cproton_perl::PN_STATUS_ACCEPTED,
+ REJECTED => $cproton_perl::PN_STATUS_REJECTED,
+ PENDING => $cproton_perl::PN_STATUS_PENDING,
+ SETTLED => $cproton_perl::PN_STATUS_SETTLED,
+ UNKNOWN => undef,
+};
+
1;
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org