The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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';