Исходное сообщение
"как наследовать конструктор perl" Отправлено bibi, 05-Янв-09 13:48
>есть много классов! >как наследовать конструктор perl? или точнее: нужно унаследовать констурктор, желательно. И самое главное вызвать (унаследовать) анонимно (чтобы не вызывать их, так как не удобно инициализировать в 10-30 строк 10-30 методов) другие методы с других классов? через SUPER и can() не получилось не работает package sfsd; use base 'config'; sub new { # $self->new if $self->can("new"); my $self = shift; $self = SUPER::new(@_);   return $self; } 1;