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',
            min_sum => 100
        }
    }
);

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

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

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

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