Добрый день! Вопрос о передаче данных объекта (переменные объекта и т.п.) в конструктор другого объекта.
Например мы имеем класс MyClass
package MyClass;
use parent qw/BaseClass/;
use Calc;
# конструктор
sub new {
my $class = shift;
$self = $class->SUPER::new(@_); # используем конструктор базового класса
return bless $self, $class;
}
# возвращаем объект класса Calc
sub calculate {return Calc->new($self)}
1;
package Calc;
sub new {
my ($class, $self) = @_;
$class = ref $class||$class;
return bless {%$self}, $class;
}
Интересует строка из класса Calc
return bless {%$self}, $class
Правильно ли так делать? Или есть более удобный метод?