tokuhirom/thaischema

NAME

ThaiSchema - Lightweight schema validator

SYNOPSIS

use ThaiSchema;

match_schema({x => 3}, {x => type_int});

DESCRIPTION

ThaiSchema is a lightweight schema validator.

FUNCTIONS

• type_int()

  Is it a int value?

• type_str()

  Is it a str value?

• type_maybe($child)

  Is it maybe a $child value?

• type_hash(\%schema)

    type_hash(
        {
            x => type_str,
            y => type_int,
        }
    );
  

  Is it a hash contains valid keys?

• type_array()

    type_array(
        type_hash({
            x => type_str,
            y => type_int,
        })
    );
  

• type_bool()

  Is it a boolean value?

  This function allows only JSON::true, JSON::false, \1, and \0.

OPTIONS

• $STRICT

  You can check a type more strictly.

  This option is useful for checking JSON types.

• $ALLOW_EXTRA

  You can allow extra key in hashref.

AUTHOR

Tokuhiro Matsuno [email protected]

SEE ALSO

LICENSE

Copyright (C) Tokuhiro Matsuno

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

thaischema's Issues

type_maybe + type_hash doesn't work

use strict;
use warnings;
use utf8;

use Test::More;
use ThaiSchema::JSON;
use ThaiSchema;

my $json = q/{"prop": {"subprop": 1}}/;
my $null_json = q/{"prop": null}/;

my $schema = +{
    prop => type_maybe(type_hash(+{
        subprop => type_int
    }))
};

my $j = ThaiSchema::JSON->new();

{
    # This test will pass.
    my ($ok, $errors) = $j->validate($null_json, $schema);
    ok($ok);
    diag($_) for @$errors;
}

{
    # This test case will fail.
    # at ThaiSchema.t line 32.
    # Can't locate object method "schema" via package "ThaiSchema::Maybe"
    #   at /Library/Perl/5.18/ThaiSchema/JSON.pm line 190.
    # でこける。
    my ($ok, $errors) = $j->validate($json, $schema);
    ok($ok);
    diag($_) for @$errors;
}
done_testing;

Minimal Perl version is wrong

ThaiSchema.pm uses "package block syntax" such as ThaiSchema::Array.
But minimal Perl version of this package is 5.10.
"package block syntax" is introduced Perl 5.14.