use Test::More tests => 2;
package MyVal;
use Validation::Class;
package main;
my $params = {
_dc => '0123456789'
};
my $v = MyVal->new(
fields => {
status => {
required => 1,
error => 'Invalid account status. Use Active/Inactive.',
filters => [ 'trim', 'strip', 'alpha' ],
options => 'Active, Inactive'
}
},
params => {
_dc => '0123456789'
},
ignore_unknown => 1
);
# params set at new function
ok $v->validate(keys %{$params}), 'validation ok';
# ok $v->fields->{_dc}, 'found anomaly, param converted to field';
ok ! $v->fields->{_dc}, 'anomaly fixed, unknown param no longer converted to field';