Программирование > Perl

mod_perl и проверка модуля

(1/1)

xmolex:
Здравствуйте. Знакомлюсь с mod_perl и в связи с этим возник вопрос, как правильно сделать проверку возможности подгрузить модуль.
Есть скрипт bee.cgi, к которому обращаются через веб. Есть модуль engine.pm, который находится в поддиректории lib/, т.е. путь относительно bee.cgi ./lib/engine.pm. Хочется сделать грамотную обработку модуля и если его не возможно загрузить, чтобы в браузер вывелось мое сообщение об ошибке. Сейчас у меня есть рабочий вариант, но выглядит он крайне непрофессионально:
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);

BEGIN
 {
   unshift @INC, $ENV{DOCUMENT_ROOT};
 }

BEGIN {
 eval { require lib::engine; };
 if ($@)
  {
    print header;
    print"Don\'t open module \'lib/engine.pm\' in \'$ENV{DOCUMENT_ROOT}\'";}
 else
  {
    use lib::engine;
    my$text = main();
    print header;
    print "|$text|";
  }}

Как видите приходится использовать два блока BEGIN. Если обойтись одним блоком, то в @INC не добавляется моя директория. Если второй блок просто убрать, то будет ошибка, т.к. "use lib::engine" выполняется на этапе компиляции (его может и не быть), а проверка на этапе выполнения. Повторюсь, пример рабочий, но хотелось бы чистоты и этичности кода. У меня не получилось добиться этого, как я не пытался.

arto:
eval "use lib::engine";

или

lib::engine->import ();

xmolex:
Большое спасибо, остановился на следующем варианте:
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);

BEGIN
 {
   unshift @INC, $ENV{DOCUMENT_ROOT};
 }

if (eval ("use lib::engine; 1"))
  {
    my$text = main();
    print header;
    print "|$text|";
  }
else
  {
    print header;
    print"Don\'t open module \'lib/engine.pm\' in \'$ENV{DOCUMENT_ROOT}\'";
  }

Навигация

[0] Главная страница сообщений