Как я могу выполнять неэффективный код только во время компиляции при использовании mod perl?

я сравнивал производительность фреймворка, который я пишу в Perl, и я получаю 50% снижение запросов в секунду по сравнению с нашей существующей кодовой базой (некоторый хит понятен, потому что мы переходим от процедурного кода спагетти к фреймворку OOP MVC).

приложение работает под mod_perl, и я добавил Лось и весь мой код фреймворка в startup.pl скрипт, что само по себе удвоило мои запросы в секунду. Я глядя на дальнейшее увеличение этого числа, чтобы получить его как можно ближе к существующей сумме. Существует аргумент, что это преждевременная оптимизация, но есть несколько вопиющих неэффективностей, которые я хотел бы исправить и посмотреть, как это влияет на производительность.

как и большинство фреймворков, у меня есть файл конфигурации и диспетчер. Часть конфигурации обрабатывается Config:: General, так что немного ввода-вывода и синтаксического анализа участвует, чтобы получить мой файл конфигурации загружен в приложение. Этот самая большая проблема, которую я вижу здесь, заключается в том, что я делаю это для каждого запроса, который приходит!

запуск Devel::Dprof в моем приложении указывает на Config::General:: BEGIN и кучу связанных модулей ввода-вывода Как одну из основных медленных точек, которая не является лосем. Итак, что я хотел бы сделать, и что имеет гораздо больше смысла в ретроспективе, это воспользоваться настойчивостью mod_perl и startup.pl компиляция материала, чтобы выполнить работу только для загрузки в конфигурационный файл один раз-при запуске сервера.

В проблема в том, что я не слишком хорошо знаю, как это будет работать.

В настоящее время каждый проект имеет класс начальной загрузки PerlHandler, который довольно тощий и выглядит так:

use MyApp; 
MyApp->new(config_file => '/path/to/site.config')->run();

MyApp.pm наследует от модуля framework Project, который имеет этот код:

my $config = Config::General->new(
                -ConfigFile => $self->config_file,
                -InterPolateVars => 1,
             );    

$self->config({$config->getall});

чтобы сделать это только во время компиляции, оба моих модуля bootstrap и Project base должны будут измениться( я думаю), но я довольно не уверен, какие изменения сделать и по-прежнему держать код хорошим и худой. Кто-нибудь может указать мне правильное направление?

обновление

я попробовал начать блок в каждом подходе модуля проекта, как описано ysth в его ответе. Так что теперь у меня есть:

package MyApp::bootstrap;
use MyApp;

my $config;
BEGIN
{
    $config = {Config::General->new(...)->getall};        
}

sub handler { ..etc.
    MyApp->new(config => $config)->run();

это быстрое изменение само по себе дало мне 50% увеличение запросов в секунду, подтверждая мои мысли о том, что файл конфигурации был основным узким местом, которое стоит исправить. Контрольная цифра на нашей капризной старой машине dev-60rps, и мой рамки с 30rps в 45rps только это изменение. Для тех, кто говорит, что лось медленный и имеет время компиляции хит.. Я получил такое же (50%) увеличение при компиляции всего моего кода лося при запуске, как и при предварительной компиляции файла конфигурации.

единственная проблема, которую я сейчас имею, это то, что это нарушает сухой Принципал, так как тот же Config::General->новый код находится в каждом блоке BEGIN, только путь к файлу конфигурации отличается. У меня есть несколько различных стратегий, чтобы ограничить это, но я просто хотел опубликовать результаты этого изменения.