has 'email' => ( is => 'rw', isa => 'Str', required => 1, clearer => 'clear_email', predicate => 'has_email', );