package Test; use Moose; use MooseX::LazyFetch; has id => (is=>'rw'); has x => (is=>'rw', lazy_fetch => 1); has y => (is=>'rw', lazy_fetch => 1); has z => (is=>'rw', lazy_fetch => 1); around 'fetcher' => sub { my $orig = shift; my $self = shift; return {x=>42,y=>3.14,z=>777}; # As if it fetched it }; 1;