Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - aster_x

Страницы: [1]
1
Perl / Модули и require
« : 19 Сентября 2005, 19:55:38 »
Есть такая проблема:

имеется модуль Base.pm
#####################
...

sub connect{
  my (%data) = @_;
  ...
  require "$data{b_type}";  # В данном случае подключаем \'mysql.pl\';
  ...
}

######################


и "mysql.pl"
######################

sub connectdb{
  ...
  my $self = {};
  ...
  return $self;
}
######################

Вопрос: как из connect вызвать connectdb так, чтобы
$self имел принадлежность к классу Base?


Заранее признателен за любые ответы..

Страницы: [1]