Author: gsim Date: Fri Oct 10 12:42:20 2014 New Revision: 1630796 URL: http://svn.apache.org/r1630796 Log: PROTON-582: Missing utils.pm module
The module was missed when the original code was submitted. Added: qpid/proton/branches/examples/proton-c/bindings/perl/lib/qpid/proton/utils.pm Added: qpid/proton/branches/examples/proton-c/bindings/perl/lib/qpid/proton/utils.pm URL: http://svn.apache.org/viewvc/qpid/proton/branches/examples/proton-c/bindings/perl/lib/qpid/proton/utils.pm?rev=1630796&view=auto ============================================================================== --- qpid/proton/branches/examples/proton-c/bindings/perl/lib/qpid/proton/utils.pm (added) +++ qpid/proton/branches/examples/proton-c/bindings/perl/lib/qpid/proton/utils.pm Fri Oct 10 12:42:20 2014 @@ -0,0 +1,31 @@ +# +# 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::proton; + +sub is_num { + my $val = $_[0]; + + return 0 if !defined($val); + return 0 if $val eq ''; + + $_[0] ^ $_[0] ? 0 : 1 +} + +1; --------------------------------------------------------------------- To unsubscribe, e-mail: commits-unsubscr...@qpid.apache.org For additional commands, e-mail: commits-h...@qpid.apache.org