如何克隆Class :: Struct？

Question

我有一个Class::Struct的哈希值，如何克隆它（深层拷贝）？ Class::Struct未提供clone或copy方法，并且手动复制Class::Struct的内部结构将很难。

my %a = ();

$a{k} = MyStruct->new;

my %b = ... ?

Answer 1

Storable模块提供了一个dclone函数，可以深层复制哈希值和Class::Struct内容。

use Storable qw/dclone/;

my %a = ();
$a{k} = MyStruct->new;

my %b =  %{dclone(\%a)};