sub _property ($$;$) {
     my $self   = shift;    # object