package monetaru::Init; use strict; use warnings 'all'; use Contenido::Globals; use monetaru::Apache; use monetaru::Keeper; # загрузка всех необходимых плагину классов # monetaru::SQL::SomeTable # monetaru::SomeClass Contenido::Init::load_classes(qw( monetaru::SQL::TransactionsTable monetaru::Transaction monetaru::SQL::OperationsTable monetaru::Operation monetaru::TransactionSection )); sub init { push @{ $state->{'available_documents'} }, qw( monetaru::Transaction monetaru::Operation ); push @{ $state->{'available_sections'} }, qw( monetaru::TransactionSection ); 0; } 1;