mhg

package TestMoose;
use Moose;
    has color  => (
        is      => 'rw',
        default => 'red',
    );
    has line_color     => (
        is          => 'rw',
        lazy        => 1,
        default     => sub { $_[0]->color },
    );
    has font_color  => (
        is          => 'rw',
        lazy        => 1,
        default     => sub { $_[0]->color },
    );

package main;

my $t = TestMoose->new;

# Should be red red red
print join ' ', $t->color, $t->line_color, $t->font_color, "\n";

$t->color( 'green' );

# Should be green green green
print join ' ', $t->color, $t->line_color, $t->font_color, "\n";

$t->line_color( 'pink' );

# Should be green pink green
print join ' ', $t->color, $t->line_color, $t->font_color, "\n";

$t->color( 'blue' );

# Should be blue pink blue
print join ' ', $t->color, $t->line_color, $t->font_color, "\n";