package JSON::Schema::Fit;
$JSON::Schema::Fit::VERSION = '0.07';
# ABSTRACT: adjust data structure according to json-schema
use 5.010;
use strict;
use warnings;
use utf8;
use Carp;
use JSON;
use S
truc, $schema, $jpath) = @_;
return $struc if !$self->booleans();
return JSON::true if $struc;
return JSON::false;
}
sub _get_adjusted_integer {
my ($self, $struc, $schema, $jpath)
ath . "['$key']";
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
JSON::Schema::Fit - adjust data structure according to json-schema
=head1 VERSION
version 0.07
=head1 SYNOPSIS
my $data =