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_symbols => 2
        }
    }
);

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

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

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

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