ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Mike E. Matsnev                      2:5020/400     21 Apr 2000  16:17:28
 To : All
 Subject : Re: Вопрос унутре
 -------------------------------------------------------------------------------- 
 

 Dmitriy Goldobin <gold@ems.ru> wrote:
 
 > Как определить наличие процедуры в текущем модуле?
 > no strict 'refs';
 > $proc = "DEFAULT" unless ${__PACKAGE__.'::'}{$proc};
 > как это сделать прямее и желательно без отключения stricts?
 
 no strict 'refs';
 $proc = "DEFAULT" unless defined(&{$proc});
 
 Hемного лучше выглядит, а Ваш код скорее всего сработает
 и на переменные с тем же именем.
 
 /Mike
 --- ifmail v.2.15dev4
  * Origin: Demos online service (2:5020/400)
 
 

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