Perlでコピーコンストラクタを呼び出すにはどうしたらいいですか？

Question

私は '='をPerlで直接オーバーロードすることはできませんが、私は '='を使って自分のオブジェクトのコピーコンストラクタを呼び出せるようにしたいと考えています。

例：

my $object1 = Object->new('value' => 1); 

# I want this to invoke the copy constructor of "$object1" instead of copying a reference 
my $object2 = $object1; 

# This should not modify "$object1" 
$object2->set_value(12); 

print $object1->get_value()."\n"; 
print $object2->get_value()."\n"; 

私は出力になりたい：

1 
12 

は、どのように私はこの作業を行うことができますか？

Answer 1

データを複製するには、Cloneモジュールを使用してください。

例：

package Foo; 
use parent 'Clone'; 
sub new { bless {}, shift } 

package main; 

my $obj = Foo->new; 
my $copy = $obj->clone;