1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# JSON::Validator
A module for validating data against a [JSON Schema](https://json-schema.org/).
```perl
use Mojolicious::Lite -signatures;
use JSON::Validator 'joi';
use Mojo::JSON qw(false to_json true);
post '/users' => sub ($c) {
my $user = $c->req->json;
# Validate input JSON document
my @errors = joi(
$user,
joi->object->props(
email => joi->email->required,
username => joi->string->min(1)->required,
password => joi->string->min(12)->required,
)
);
# Report back on invalid input
return $c->render(json => {errors => \@errors}, status => 400) if @errors;
# Handle the $user in some way
$c->app->log->info(to_json $user);
# Report back the status
return $c->render(json => {accepted => true}, status => 201);
};
app->start;
```
## Installation
All you need is a one-liner, it takes seconds to install.
$ curl -L https://cpanmin.us | perl - -M https://cpan.metacpan.org -n JSON::Validator
We recommend the use of a [Perlbrew](http://perlbrew.pl) environment.
## Want to know more?
Take a look at our excellent
[documentation](https://mojolicious.org/perldoc/JSON/Validator)!
|
