perl скопировать объект по ссылке

[nataraj]

Надо сделать копию объекта, чтобы не поганить оригинал изменениями...

Можно сделать
my $copy = {%{$orig}};
но это как-то сильно wirte-only, даже если комментарием сопроводить...

Нет ли случайно какой-то спецфункции позволяющией клонировать объект, о которой я не знаю?
Чтобы можно было сказать что-то вроде
my $copy = clone $orig;

Comments

[beldmit.livejournal.com]

http://search.cpan.org/~rdf/Clone-0.31/Clone.pm

[what-me.livejournal.com]

my $copy = {%{$orig}};

Объекты не только на основе хэша бывают. И зачастую содержат ссылки, которые в твоей копии будут ссылаться на то же самое что и в оригинале.

[what-me.livejournal.com]

И bless забыт

[shaplov.livejournal.com]

Ну, я про свой "объкет" точно знаю какой он бывает... ;-)