sub set_normal {
        my ($O, $key, $val) = @_;
        
        my $func = $O->{'validate-funcs'}->{ $key };
        my $result = $O->$func ($val);
        
        if ($result eq 'SUCCESS') {
            $O->{'data'}->{ $key } = $val;
        }
        return ($result);
    }