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';