Yet Another CPAN Grep

Catalyst-ActionRole-JSV ( M/MA/MASAKYST/Catalyst-ActionRole-JSV-0.03.tar.gz, MASAKYST, 2017; MetaCPAN )

Catalyst-ActionRole-JSV/lib/Catalyst/ActionRole/JSV.pm ( view source; MetaCPAN )

se strict;
use Moose::Role;
use namespace::autoclean;
use JSV::Validator;
use Path::Class ();
use JSON::MaybeXS ();


our $VERSION = '0.03';
our $JSV;
our %SCHEMA = ();


after BUILD => sub {
    $JSV

 $json_file = $self->attributes->{JSONSchema}->[0];

    if (exists $SCHEMA{ $json_file } ) {
        $request_schema = $SCHEMA{ $json_file };
        $c->log->debug("load memory json schema: ".$json_

    my $load_schema_json = Path::Class::file($c->config->{home}, $json_file);
        $request_schema = JSON::MaybeXS::decode_json($load_schema_json->slurp);
        $SCHEMA{ $json_file } = $request_s