package Parent;
use attribute sub {
  my $self = shift;
  my $name = shift;
  # we have an ordinary hashref for the object
  return \$self->{"_$name"};
}, [qw(city name)];