has 'x' => (
    is => 'rw',
    isa => 'Str',
    default => sub {
        my ($self) = @_;
        return $self->value;
    },
    lazy => 1,
);
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.