Лось-объект как ленивый хеш

Question

Я хочу заменить некоторые хеши, используемые в моей программе, с ленивыми объектами Муха по соображениям производительности. Проблема в том, что есть много кода, который я не контролирую, который использует, конечно, ->{key} для доступа к элементам. Такой доступ работает с Moose объектами, но не работает с ленивых, прежде чем они были инициализированы:

package Stuff; 

use Moose; 

has foo => (
    lazy=>1, 
    default=> sub { +{bar=>baz} } 
); 

package main; 
my $x = Stuff->new(); 

print Dumper $x->{foo}; # undef =(
print Dumper $x->foo; # {bar => baz } 
print Dumper $x->{foo}; # {bar => baz } 

Любой способ сделать первый $x->{foo} инициализировать переменную?

Answer 1

Вы не можете использовать его как хэш напрямую, но с Tie::Moose вы можете создать хеш, который вызывает лежащие в основе методы Лося. Вы можете передать этот хэш вместе с другим кодом.

use Tie::Moose; 

my $x = Stuff->new(); 
tie my %x, "Tie::Moose", $x; 

print Dumper($x{foo}); # { 'bar' => 'baz' } 

Answer 2

Итак, вы хотите, чтобы код запускался всякий раз, когда к элементу вашего хеш-объекта обращаются? Это возможно с помощью magic, но это значительно замедлит доступ к вашему объекту.