sub has {
  my ($self, $attr) = @_;
  return 1 if exists $HAS{$attr};
  return 1 if ${_}::has($self, $attr) for @ISA;
  return;
}

# Then in initialization or in AUTOLOAD...
...
if ($self->has($attr)) {
 ...#set attr
}