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 MyApp::Test;

use Validation::Class;

field 'field01' => {
    required    => 1,
    min_length  => 1,
    max_length  => 255,
};

field 'field02' => {
    required    => 1,
    min_length  => 1,
    max_length  => 255,
};

package main;

my $v = MyApp::Test->new;

# check attributes
ok ref $v,  'class initialized';
ok $v->fields->{field01},  'field01 inheritence ok';
ok $v->fields->{field02},  'field02 inheritence ok';
ok !$v->error_count, 'no errors yet';