如何克隆一個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)};