ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Renat Araslanow                      2:5011/119.1   08 Nov 2002  22:04:03
 To : All
 Subject : @EXPORT
 -------------------------------------------------------------------------------- 
 

 
 есть
 z.pm
 
 package Z;
 
 package Z::Z;
 use DB_File;
 
 1;
 package Z;
 
 sub new
 {
     tie %hash, 'Z::Z', $flags, $mode, $DB_BTREE;
 }
 1;
 
 при компиляции ошибка на $DB_BTREE - что естественно. как мне проэкспортировать 
 в Z то, что экспортирует DB_File в Z::Z? DB_File->export_to_level(1,@_) в BEGIN 
 не делает этого потому что caller(1) eq 'main';
 
 если вынести package в отдельный pm и оформить бегин таким образом
     use DB_File;
     @EXPORT = @DB_File::EXPORT;
 с соответствующим использованием Exporter, то работает.
 
 но всё-таки интересно - можно получить такой же результат, имея оба package в
 одном pm, или нет..
 
 --- [Преждевременная оптимизация -- корень всех зол Д. Кнут]
  * Origin: Чайник с программным управлениемЪ (2:5011/119.1)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    @EXPORT   Renat Araslanow   08 Nov 2002 22:04:03   Re: @EXPORT   Artem Chuprina   09 Nov 2002 03:01:21