6 use Test::More tests => 4;
21 my ($self, $value, $name, $callback) = @_;
22 $callback->($value * 2);
27 reader => 'get_lazy_foo',
30 my ($self, $value, $name, $callback) = @_;
31 $callback->($value * 2);
37 my $foo = Foo->new(foo => 10);
40 is($foo->get_foo, 20, 'initial value set to 2x given value');
41 is($foo->get_lazy_foo, 20, 'initial lazy value set to 2x given value');