Wie kann ich '=' einen Kopierkonstruktor in Perl aufrufen lassen?

Question

Ich weiß '=' kann nicht direkt in Perl überladen werden, aber ich möchte in der Lage sein, '=' zu verwenden, um den Kopierkonstruktor für eines meiner Objekte aufzurufen.

Beispiel:

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

Ich möchte die Ausgabe sein:

1 
12 

Wie kann ich diese Arbeit machen?

Answer 1

Zum Klonen von Daten können Sie Clone Modul verwenden.

Beispiel:

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

package main; 

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