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

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