has 'y' => ( is => 'rw',
             isa => 'str',
             lazy => 1,
             builder => '_build_y' );

sub _build_y {
    my $self = shift;
    return $self->{x}.'y' );
}