Как я могу сделать '=' вызов конструктора копирования в 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;