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

package MyVal;
use Validation::Class;

package main;

my $r = MyVal->new(
    fields => {
        one => {
            label      => 'Object',
            max_digits => 2
        }
    }
);

$r->params->{one} = 1;
ok $r->validate('one'), 'validation ok';

$r->params->{one} = 11;
ok $r->validate('one'), 'validation ok';

$r->params->{one} = 111;
ok !$r->validate('one'), 'validation failed';

$r->params->{one} = 'abcdef';
ok $r->validate('one'), 'validation ok';