has 'age'  => ( 
  is  => 'ro',
  isa => 'Str',
  predicate => 'has_age'
);
if ($self->has_age) { ... }