de )],
handles => { _decode => 'execute', },
);
sub _build__decoder {
require JSON::MaybeXS;
my $decoder = JSON::MaybeXS->new()->utf8(1)->relaxed(1);
return sub {
$decoder->decode(shift);
> sub { q{0.1.0} },
);
class_has '_extension' => (
isa => Str,
ro, lazy, default => sub { q{.json} },
);
class_has '_schema_creator' => (
isa => CodeRef,
ro, lazy_build,
traits => [qw( Co
pts) );
}
sub check {
my ( $self, $json_data, $opts ) = @_;
$opts = $self->_opt_check($opts);
return $self->_schema($opts)->check($json_data);
}
1;
__END__
=pod
=encoding UTF-8
=