1 |
529 |
ahitrov |
package payments::Init; |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use warnings 'all'; |
5 |
|
|
|
6 |
|
|
use Contenido::Globals; |
7 |
|
|
use payments::Apache; |
8 |
|
|
use payments::Keeper; |
9 |
|
|
|
10 |
|
|
# загрузка всех необходимых плагину классов |
11 |
|
|
# payments::SQL::SomeTable |
12 |
|
|
# payments::SomeClass |
13 |
|
|
Contenido::Init::load_classes(qw( |
14 |
|
|
payments::SQL::TransactionsTable |
15 |
|
|
payments::Transaction |
16 |
|
|
|
17 |
|
|
payments::SQL::OperationsTable |
18 |
|
|
payments::Operation |
19 |
|
|
|
20 |
|
|
payments::SQL::CardsTable |
21 |
|
|
payments::Card |
22 |
|
|
|
23 |
|
|
payments::TransactionSection |
24 |
|
|
|
25 |
|
|
payments::CardSection |
26 |
|
|
|
27 |
|
|
payments::Provider::Base |
28 |
|
|
payments::Provider::PayTure |
29 |
690 |
ahitrov |
payments::Provider::Sber |
30 |
529 |
ahitrov |
)); |
31 |
|
|
|
32 |
|
|
sub init { |
33 |
|
|
push @{ $state->{'available_documents'} }, qw( payments::Transaction payments::Operation payments::Card ); |
34 |
|
|
push @{ $state->{'available_sections'} }, qw( payments::TransactionSection payments::CardSection ); |
35 |
|
|
0; |
36 |
|
|
} |
37 |
|
|
|
38 |
|
|
1; |