Yet Another CPAN Grep

BenchmarkAnything-Schema ( S/SC/SCHWIGON/BenchmarkAnything-Schema-0.004.tar.gz, SCHWIGON, 2016; MetaCPAN )

BenchmarkAnything-Schema/lib/BenchmarkAnything/Schema.pm ( view source; MetaCPAN )

d_json_schema {
    my ($data_or_json) = @_;

    require File::Slurper;
    require File::ShareDir;
    require JSON::MaybeXS;
    require JSON::Schema;
    require Scalar::Util;

    # decode JSON u

::Util::reftype($data_or_json);
    if ($ref and $ref =~ /^HASH|ARRAY$/) {
        $data = $data_or_json;
    } else {
        $data = JSON::MaybeXS::decode_json($data_or_json);
    }

    my $schema_

ark-anything-schema.json');
    my $schema_json = File::Slurper::read_text($schema_file);
    my $schema      = JSON::MaybeXS::decode_json($schema_json);
    my $validator   = JSON::Schema->new($schem