NAME
Data::Validator::MultiManager - to manage a multiple validation for Data::Validator
SYNOPSIS
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Validator::MultiManager;
my $manager = Data::Validator::MultiManager->new;
# my $manager = Data::Validator::MultiManager->new('Data::Validator::Recursive');
$manager->common(
category => { isa => 'Int' },
);
$manager->add(
collection => {
id => { isa => 'ArrayRef' },
},
entry => {
id => { isa => 'Int' },
},
);
my $param = {
category => 1,
id => [1,2],
};
my $result = $manager->validate($param);
if (my $e = $result->errors) {
errors_common($e);
# $result->invalid is guess to match some validator
if ($result->invalid eq 'collection') {
errors_collection($e);
}
elsif ($result->invalid eq 'entry') {
errors_entry($e);
}
}
else {
if ($result->valid eq 'collection') {
process_collection($result->value);
}
elsif ($result->valid eq 'entry') {
process_entry($result->value);
}
}DESCRIPTION
Data::Validator::MultiManager is to manage a multiple validation for Data::Validator. Add rules to 'NoThrow' and 'NoRestrict' by default.
Manager's METHOD
Data::Validator::MultiManager->new
$manager->common(@rule)
add common rules.
$manager->common(
category => { isa => 'Int' },
);$manager->add(@rules)
add new validation rules.
$manager->add(
collection => {
id => { isa => 'ArrayRef' },
},
entry => {
id => { isa => 'Int' },
},
);$manager->validate(@input)
validates @args and return ResultSet.
my $result = $manager->validate($param);ResultSet's METHOD
$result->original
return original parameters(@input).
$result->valid
return valid tag.
$result->invalid
return invalid tag. (using priority and count of errors)
$result->values
return HASH reference after validate with valid tag.
$result->error
return first error with invalid tag.
$result->errors
return all of errors with invalid tag.
LICENSE
Copyright (C) Hiroyoshi Houchi.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
AUTHOR
Hiroyoshi Houchi <hixi@cpan.org>