Как то создать объект одного класса, что то в нем поменять, а потом создать объект другого класса, который унаследует все функции и переменные (с измененными значениями) первого класса?Что то типа этого:
---------------------------------------
[host]$ cat script.pl
#!/usr/bin/perl
## объект первого класса
my $obj = FIRST->new;
$obj->func1( 'test' );
# объект второго класса
$obj = SECOND->new( $obj );
print $obj->func2, "\n";
######### первый класс
package FIRST;
sub new {
my $class = shift;
my $self = {};
bless($self, $class);
return $self;
}
sub func1 {
my $self = shift;
my $var = shift;
$self->{var} = $var;
}
sub func2 {
my $self = shift;
perurn $self->{var};
}
######### второй класс
package SECOND;
sub new {
my $class = shift;
my $self = shift;
bless($self, $class);
return $self;
}
---------------------------------------
результат:
Can't locate object method "func2" via package "SECOND" at ./script.pl line 9.