запутался с модулями и мод_перл:)

[glebushka]

Вообщем ситуация такая.
Пишу движок. Под mod_perl. Соотвественно юзаю Apache::Registry
Есть достаточно много модулей.
к примеру, пишу в основной программе
use USERS;
use vars ($User);
$User=USERS->new;
$User->authorization;
Так вот, необходимо получить доступ к объекту $User из других модулей, подключаемых аналогично USERS.
Раньше я писал вот так $main::User->id.
С использованием mod_perl, естественно это не работает.
Решил написать:
*User=\\$Foo::User;
И повторить фокус во всех остальных модулях.
Есдинственное что меня останавливает, а правильно ли это? Выглядит кривовато...

[glebushka]

и тишина...
Хорошо задам вопрос немонго по-дркугому:)
Где можно посмотреть пример программы (исходники) под мод_перл, с большим количеством модулей, написанных в стиле ООП.
Конечно желательно, обрацово-показательный пример.
Ссылки на гуль привествуются, конечно если там будет нужный запрос.

[ondr]

Под mod_perl главный модуль имеет иной путь. Ради интереса можешь посмотреть на него выведя на экран значение __PACKAGE__. С практической точки зрения по прежнему работает синтаксис $:: вместо $::main. Т.е. для вызова твоей переменной используй следующую запись $::User.

Советую прочесть книжку Practical mod_perl (у тебя должна быть). Также всё это, и пути решений и примеры описанны на родном сайте mod_perl perl.apache.org

[glebushka]

ondr:
Советую прочесть книжку Practical mod_perl (у тебя должна быть)

Есть конечно, читаю. Но там основное содержание - установка и настройка мод_перл. Это тоже интересно, но это больше проблемы хостера, чем мои:)
А вот книгу мод_перл фор дивелоперс - никак не могу найти:(
И ещё тогда вопрос. (задаю здесь, чтобы не плодить топики)
Если хочется написать довольно большую (уже сейчас программа начитывает 7000 строк кода) легко масштабируемую и изменяемую программу.
Стоит ли разбивать программу на множество небольших модулей, в которых присутствуют только одна-две функции? Где-то я читал утверждение, что хорошо структурированная программа делится на модули, в которых каждый умещается на одном печатном листе?
И если так сделать, серьёзно ли скажется это на скорости?
Уточняю, интересует только перл, причём под мод_перл.

[glebushka]

И ещё вопрос, стоит ли использовать Apache::Registry, или лучше или лучше просто подправить скрипт и внести необходимые изменения чтобы работал, под мод_перл (программа претендует на некоторую серьёзность, поэтому вопрос о совместимости с мод_цги не стоит).

[Green Kakadu]

Стоит ли разбивать программу на множество небольших модулей, в которых присутствуют только одна-две функции? Где-то я читал утверждение, что хорошо структурированная программа делится на модули, в которых каждый умещается на одном печатном листе?

особо много и бессмысленно модули плодить не стоит - слишком большая цепочка наследственности не есть гуд (если ты будешь их наследовать конечно), ну а если ты предполагаешь насоздать кучу объектов - то тоже не супер. Без фанатизма короче стоит подходить к этому впросу

[glebushka]

ок, следующий вопрос. Условия все теже. мод_перл. юз стрикт.
в основном скрипте:
use Util;
use Users;
$User=Users->new;
$User->authorization;
На этом этапе необходимо в модуле User, в authorization использовтаь одну из функций из модуля Util. Раньше всё было просто:
&main::Util::some_function($param); (если, конечно ,не указана на экспорт, тогда короче).
Так вот, эти конструкции по понятным причинам не работают.
Как можно вызвать функцию? Не загружая лишний раз необходимый модуль Util.pm в модуле User.pm?

[Green Kakadu]

а почему бы просто не передать в параметрах ссылку на объект?
my $Util=Util->new;
$User=Users->new($Util);
ну а там конструктор соотв.видоизменить.

[ondr]

не факт что там ООП

glebushka
Строго рекомендую прочитать про модули, експорт/импорт, доступ к элементам и т.д. Не обращая никакого внимания на mod_perl. Отличия там не настолько серьёзные, чтобы во всём его винить.

[Green Kakadu]

не факт что там ООП

тогда просто ссылку на подпрограмму.

[glebushka]

ondr:
Отличия там не настолько серьёзные, чтобы во всём его винить

Читал. Как оказалось сёрьёзные:( Что в этой ситуации посоветуешь?

Green Kakadu:
тогда просто ссылку на подпрограмму.

слишком много подпрограмм:( Думаю придётся делать объектно-ориентированным. Если ничего не придумаю. или ondr не будет грить читать доки, а скажет какие именно читать:)
ondr, perldoc что?

[Green Kakadu]

слишком много подпрограмм

закидываешь ссылки на них в хеш, и передаешь ссылку на этот хеш

[ondr]

ИМХО, кроме отличий в названии главного модуля, доступ к модулям не изменился. Если загружен модуль Util, то и доступ нему Util::. Для удобства можно всё необходимое экспортировать либо использовать ООП. И ничего криминального в "загружая лишний раз необходимый модуль" нету, т.к. загружаться он всё равно будет единожды, сколько раз его не вызывай (и без mod_perl).

Могу поделиться старенькими, но по данному вопросу, по прежнему актуальными книжками на русском: "Самоучитель perl", "Изучаем perl", "Perl: Библиотека программиста". Про модульность там достаточно и хорошо описано.

[glebushka]

ondr, видимо я не точно выразился.
Вот пример.

index.cgi
------------------
use Util;
use Users;
use vars ($User);
$User=USERS->new;
$User->authorization;
---------------------
Util.pm
package Util;
-----------------------
sub some_function{


}
-------------------------
Users.pm
-------------------------
package Users;
sub authorization{
#а вот тут нужно вызвать some_function.
#вызов &Util::some_function - не работает (что, в принипе, логично:)
#в mod_cgi работает вызов &main::Util::some_function, если функция
#не экспортировалась, или короче &main::some_function
#если экспортировалась. Ни тот ни другой вариант под
#mod_perl не работает
}
-------------------------
Так думаю понятнее объяснил?
ЗЫ. Все нижеперечисленные книжки у меня имеются, и даже более того прочитаны. За исключением первой (может у меня другой самоучитель). А последние прочитаны, если ты имеешь в виду Орейли.

[glebushka]

ondr:
т.к. загружаться он всё равно будет единожды, сколько раз его не вызывай

гм, вот в этом я не уверен. Всегда думал, что будет грузится несколько раз... Точно? Можно ссылку, где это написано?