Perl'de bir kopya oluşturucuyu '=' nasıl yapabilirim?

Question

'=' Perl'de doğrudan aşırı yüklenemediğini biliyorum, ancak nesnelerimden biri için kopya oluşturucuyu çağırmak için '=' öğesini kullanmak istiyorum.

örnek:

1 
12 

nasıl bu iş yapabilirsiniz:

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"; 

Ben çıkış olmak istiyorum?

Answer 1

Verileri kopyalamak için Clone modülünü kullanabilirsiniz.

Örnek:

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

package main; 

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