Avro

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

    file: lib/Avro/Schema.pm
    version: 1.12.0
requires:
  Compress::Zlib: 0
  Compress::Zstd: 0
  Encode: 0
  Error::Simple: 0
  JSON::MaybeXS: 0
  Object::Tiny: 0
  Regexp::Common: 0
  Try::Tiny: 0
  parent: 0
  perl: 5.10.1
resources:
  bugtracker:
    web: http://issues.apache.org/jira/browse/AVRO/
  homepage: http://avro.apache.org/
  license: http://apache.org/licenses/LICENSE-2.0
  repository:
    type: git
    url: git://git.apache.org/avro.git

Makefile.PL  view on Meta::CPAN

test_requires 'Test::Exception';
test_requires 'Test::More', 0.88;
test_requires 'Test::Pod';
requires 'Compress::Zlib';
requires 'Compress::Zstd';
requires 'Encode';
requires 'Error::Simple';
requires 'JSON::MaybeXS';
requires 'Object::Tiny';
requires 'Regexp::Common';
requires 'Try::Tiny';
requires 'parent';
unless ($Config{use64bitint}) {
    requires 'Math::BigInt';
}

my %packages = (
    'Avro'                    => 'lib/Avro.pm',
    'Avro::BinaryDecoder'     => 'lib/Avro/BinaryDecoder.pm',
    'Avro::BinaryEncoder'     => 'lib/Avro/BinaryEncoder.pm',
    'Avro::DataFile'          => 'lib/Avro/DataFile.pm',

lib/Avro/Protocol.pm  view on Meta::CPAN

# KIND, either express or implied.  See the License for the
# specific language governing permissions and limitations
# under the License.

package Avro::Protocol;
use strict;
use warnings;

use Carp;
use JSON::MaybeXS ();
use Try::Tiny;
use Avro::Protocol::Message;
use Avro::Schema;
use Error;
use Object::Tiny qw{
    name
    namespace
    doc
    types
    messages
};

lib/Avro/Schema.pm  view on Meta::CPAN

# KIND, either express or implied.  See the License for the
# specific language governing permissions and limitations
# under the License.

package Avro::Schema;
use strict;
use warnings;

use Carp;
use JSON::MaybeXS ();
use Try::Tiny;

our $VERSION = '++MODULE_VERSION++';

my $json = JSON::MaybeXS->new->allow_nonref;

sub parse {
    my $schema      = shift;
    my $json_string = shift;
    my $names       = shift || {};
    my $namespace   = shift || "";