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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
package Catmandu::Fix::validate;
use Catmandu::Sane;
our $VERSION = '1.2024';
use Moo;
use Catmandu::Util qw(require_package);
use Catmandu::Util::Path qw(as_path);
use namespace::clean;
use Catmandu::Fix::Has;
has path => (fix_arg => 1);
has name => (fix_arg => 1);
has error_field => (fix_opt => 1, default => 'errors');
has validator_opts => (fix_opt => 'collect');
has validator => (is => 'lazy', init_arg => undef);
with 'Catmandu::Fix::Builder';
sub _build_validator {
my ($self) = @_;
require_package($self->name, 'Catmandu::Validator')
->new($self->validator_opts);
}
sub _build_fixer {
my ($self) = @_;
my $validator = $self->validator;
my $get = as_path($self->path)->getter;
my $set_error = as_path($self->error_field)->creator;
sub {
my ($data) = @_;
my $values = $get->($data);
for my $val (@$values) {
next if $validator->is_valid($val);
$set_error->($data, $validator->last_errors);
}
$data;
}
}
1;
__END__
=pod
=head1 NAME
Catmandu::Fix::validate - validate data and keep errors
=head1 SYNOPSIS
# Check author field against a JSON Schema
validate('author', JSONSchema, schema: 'my/schema.json')
if exists(errors)
... # do something
end
# Check item against a custom validator, store in errors in 'warnings'
validate('author', MyValidatorClass, error_field: warnings)
=head1 DESCRIPTION
This L<Catmandu::Fix> validates data with a L<Catmandu::Validator> and stores
errors in field C<errors> for further inspection.
=head1 CONFIGURATION
=over
=item error_field
Path where to store errors. Set to C<errors> by default.
=back
Additional options are passed to the validator.
=head1 SEE ALSO
L<Catmandu::Fix::Condition::valid>
=cut
|
