The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 3;

# load module
package MyVal;
use Validation::Class;

package main;

my $v = MyVal->new(
    fields => {foobar => {filters => 'numeric'}},
    params => {foobar => '123abc456def'}
);

ok $v->params->{foobar} =~ /^123456$/, 'numeric filter working as expected';

$v = MyVal->new(
    fields => {foobar => {filters => 'numeric'}},
    params => {foobar => '----     123abc456def'}
);

ok $v->params->{foobar} =~ /^-123456$/, 'numeric filter working with negative number as expected';

$v = MyVal->new(
    fields => {foobar => {filters => 'numeric'}},
    params => {foobar => '     - ----     123abc456def'}
);

ok $v->params->{foobar} =~ /^-123456$/, 'numeric filter working with negative number as expected';