Yet Another CPAN Grep

Data-Sah ( P/PE/PERLANCAR/Data-Sah-0.917.tar.gz, PERLANCAR, 2024; MetaCPAN )

Data-Sah/lib/Data/Sah.pm ( view source; MetaCPAN )

ction)"> for more
details on arguments.

=head1 FAQ

See also L<Sah::FAQ>.

=head2 Comparison to {JSON::Schema, Data::Rx, Data::FormValidator, ...}?

See L<Sah::FAQ>.

=head2 Why is it so slow?

You p

is very fast, although minimal. L<Data::Rx>, L<Kwalify>,
L<Data::Verifier>, L<Data::Validator>, L<JSON::Schema>, L<Validation::Class>.

For Moo/Mouse/Moose stuffs: L<Moose> type system, L<MooseX::Para

Data-Sah ( P/PE/PERLANCAR/Data-Sah-0.917.tar.gz, PERLANCAR, 2024; MetaCPAN )

Data-Sah/lib/Data/Sah/Compiler/Prog.pm ( view source; MetaCPAN )

   state $json = do {
            require JSON;
            JSON->new->allow_nonref;
        };
        my $clset = $cd->{clset};
        my $cl    = $cd->{clause};
        my $res   = $json->encode({

Data-Sah ( P/PE/PERLANCAR/Data-Sah-0.917.tar.gz, PERLANCAR, 2024; MetaCPAN )

Data-Sah/lib/Test/Data/Sah.pm ( view source; MetaCPAN )

ut})), "----end result----";
    }
}

sub _decode_json {
    state $json = do {
        require JSON;
        JSON->new->allow_nonref;
    };
    $json->decode(@_);
}

sub run_spectest {
    require F

_schema.json")
        or die "Something's wrong, spectest doesn't contain the correct files";

    my @specfiles;
    {
        local $CWD = "$dir/spectest";
        @specfiles = glob("*.json");

  {
        last unless $args{test_normalize_schema};

        for my $file ("00-normalize_schema.json") {
            unless (!@files || grep { $_ eq $file } @files) {
                diag "Skipping