has 'x' => ( is => 'rw',
                  isa => 'str',
                  default => 'was once a ' );
has 'y' => ( is => 'rw',
                  isa => 'str',
                  default => $self->{x}.'y' );