Yet Another CPAN Grep

Data-Validate-OpenAPI ( M/ME/MERKYS/Data-Validate-OpenAPI-0.3.0.tar.gz, MERKYS, 2023; MetaCPAN )

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

  use Data::Validate::OpenAPI;

    my $validator = Data::Validate::OpenAPI->new( $parsed_openapi_json );
    my $params = $validator->validate( '/', 'post', CGI->new );

=head1 DESCRIPTION

C<Data::V

API schemas.
To do so, refer to L<JSON::Validator>.

=head1 METHODS

=head2 C<new( $api )>

Takes a parsed OpenAPI schema as returned by L<JSON> module's C<decode_json()>.
Returns validator ready to v

return $value =~ /^($schema->{pattern})$/ ? $1 : undef;
    }

    # FIXME: Maybe employ a proper JSON Schema validator?
    #        Not sure if it untaints, though.
    if( $format && exists $format