Class :: Structをどのようにクローンしますか？

Question

私はClass::Structのハッシュを持っていますが、それをどのようにクローンしますか？ Class::Structはcloneまたはcopyメソッドを提供せず、Class::Structの内部を手動でコピーするのは難しいでしょう。

my %a =(); 

$a{k} = MyStruct->new; 

my %b = ... ? 

Answer 1

StorableモジュールはディープコピーハッシュとClass::Structコンテンツすることができるdclone機能を提供します。

use Storable qw/dclone/; 

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

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