package Base;
my %_required = ('Foo' => {one =>1, two => 1, three =>1},
                'Bar' => {one =>1, three => 1, fourteen =>1});

sub isRequired {
   my ($self, $attr) = @_;
   my $class = ref $self;
   return exists $_required{$class}->{$attr};
}