Line # Revision Author
1 296 ahitrov package promosuite::Init;
2
3 # ----------------------------------------------------------------------------
4 # Инициализация проекта promosuite. Инициализация выполняется в момент
5 # вызова Contenido::Init->init().
6 # В этом пакете обязательно должна быть функция init().
7 # ----------------------------------------------------------------------------
8
9 use strict;
10 use vars qw($VERSION @ISA @EXPORT);
11
12 use Exporter;
13 @ISA = qw(Exporter);
14 @EXPORT = qw();
15 $VERSION = '1.0';
16
17 use promosuite::Apache;
18 use Time::Local;
19
20 # Эта функция инициализирует проектно-зависимые
21 sub init {
22 return 0;
23 }
24
25 1;