From 817cb30df6895cd7f518e0fe9191ebbc1ef32a49 Mon Sep 17 00:00:00 2001 From: "Darryl L. Pierce" Date: Wed, 1 May 2013 17:07:43 +0000 Subject: QPID-4800: Fixed packaging for codec.pm. The package was missing the codec portion of the name. git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk/qpid@1478098 13f79535-47bb-0310-9956-ffa450edef68 --- cpp/bindings/qpid/perl/lib/qpid/messaging.pm | 53 ++++++++++++++++++++++ cpp/bindings/qpid/perl/lib/qpid/messaging/codec.pm | 53 ---------------------- cpp/bindings/qpid/perl/lib/qpid_messaging.pm | 2 +- 3 files changed, 54 insertions(+), 54 deletions(-) create mode 100644 cpp/bindings/qpid/perl/lib/qpid/messaging.pm delete mode 100644 cpp/bindings/qpid/perl/lib/qpid/messaging/codec.pm (limited to 'cpp') diff --git a/cpp/bindings/qpid/perl/lib/qpid/messaging.pm b/cpp/bindings/qpid/perl/lib/qpid/messaging.pm new file mode 100644 index 0000000000..c9d6845eb9 --- /dev/null +++ b/cpp/bindings/qpid/perl/lib/qpid/messaging.pm @@ -0,0 +1,53 @@ +# +# Licensed to the Apache Software Foundation (ASF) under one +# or more contributor license agreements. See the NOTICE file +# distributed with this work for additional information +# regarding copyright ownership. The ASF licenses this file +# to you under the Apache License, Version 2.0 (the +# "License"); you may not use this file except in compliance +# with the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, +# software distributed under the License is distributed on an +# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY +# KIND, either express or implied. See the License for the +# specific language governing permissions and limitations +# under the License. +# + +package qpid::messaging; + +sub encode { + my $content = $_[0]; + my $message = $_[1]; + my $impl = $message->get_implementation(); + + if(UNIVERSAL::isa($content, "HASH")) { + cqpid_perl::encode($content, $impl, "amqp/map"); + } elsif(UNIVERSAL::isa($content, "ARRAY")) { + cqpid_perl::encode($content, $impl, "amqp/list"); + } else { + $message->get_implementation()->setContent($content); + } +} + +sub decode { + my $message = $_[0]; + my $impl = $message->get_implementation(); + my $content_type = $impl->getContentType(); + + if($content_type eq "amqp/map") { + $result = cqpid_perl::decodeMap($impl); + } elsif($content_type eq "amqp/list") { + $result = cqpid_perl::decodeList($impl); + } else { + $result = $impl->getContent(); + } + + return $result; +} + +1; + diff --git a/cpp/bindings/qpid/perl/lib/qpid/messaging/codec.pm b/cpp/bindings/qpid/perl/lib/qpid/messaging/codec.pm deleted file mode 100644 index c9d6845eb9..0000000000 --- a/cpp/bindings/qpid/perl/lib/qpid/messaging/codec.pm +++ /dev/null @@ -1,53 +0,0 @@ -# -# Licensed to the Apache Software Foundation (ASF) under one -# or more contributor license agreements. See the NOTICE file -# distributed with this work for additional information -# regarding copyright ownership. The ASF licenses this file -# to you under the Apache License, Version 2.0 (the -# "License"); you may not use this file except in compliance -# with the License. You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, -# software distributed under the License is distributed on an -# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY -# KIND, either express or implied. See the License for the -# specific language governing permissions and limitations -# under the License. -# - -package qpid::messaging; - -sub encode { - my $content = $_[0]; - my $message = $_[1]; - my $impl = $message->get_implementation(); - - if(UNIVERSAL::isa($content, "HASH")) { - cqpid_perl::encode($content, $impl, "amqp/map"); - } elsif(UNIVERSAL::isa($content, "ARRAY")) { - cqpid_perl::encode($content, $impl, "amqp/list"); - } else { - $message->get_implementation()->setContent($content); - } -} - -sub decode { - my $message = $_[0]; - my $impl = $message->get_implementation(); - my $content_type = $impl->getContentType(); - - if($content_type eq "amqp/map") { - $result = cqpid_perl::decodeMap($impl); - } elsif($content_type eq "amqp/list") { - $result = cqpid_perl::decodeList($impl); - } else { - $result = $impl->getContent(); - } - - return $result; -} - -1; - diff --git a/cpp/bindings/qpid/perl/lib/qpid_messaging.pm b/cpp/bindings/qpid/perl/lib/qpid_messaging.pm index e6a2681c15..524bbaa5ac 100644 --- a/cpp/bindings/qpid/perl/lib/qpid_messaging.pm +++ b/cpp/bindings/qpid/perl/lib/qpid_messaging.pm @@ -23,7 +23,7 @@ use cqpid_perl; package qpid::messaging; -use qpid::messaging::codec; +use qpid::messaging; use qpid::messaging::Address; use qpid::messaging::Duration; use qpid::messaging::Message; -- cgit v1.2.1