search

zigorou / perl-JSV

JSON Schema implementation for Perl
Other
25 stars 17 forks source link

for flexible format support #16

Closed zentooo closed 10 years ago

zentooo commented 10 years ago 
# disable format, default = enable
JSV::Validator->new(enable_format => 0);
# replace formats, entirely
JSV::Validator->new(
    formats => +{
        original_format => sub {
            my $instance = shift;
            return $instance eq "omoro-";
        }
    }
);
# add new format or override existing format
$jsv_instance->register_format("original_format" => sub {
    my $instance = shift;
});

みたいな感じで。