sub isRequired {
    my $self = shift;
    my $attr = shift;

    my $class = ref($self) or croak "No class name!\n";

    no strict 'refs';
    return (${"$class::Required"}{$attr});
}

##</code><code>##

sub isRequired {
    my $self = shift;
    my $attr = shift;

    return ($self->{Required}{$attr});
}