tokuhirom's Blog

threads::shared and Storable

threads::shared uses magic. But so, it is not restore after Storable::thaw.

use strict;
use warnings;
use threads;
use threads::shared;
use Storable qw/dclone/;

my $x = shared_clone(+{});
my $n = Storable::dclone($x);
print $n->{foo}->{bar};

This script says

Can't locate object method "FETCH" via package "threads::shared::tie" at hoge.pl line 9.