Line # | Revision | Author | |
---|---|---|---|
1 | 3 | ahitrov@rambler.ru | package @NAME@::SampleCustomDocument; |
2 | |||
3 | use strict; | ||
4 | |||
5 | use @NAME@::SQL::SampleTable; | ||
6 | use base 'Contenido::Document'; | ||
7 | |||
8 | sub extra_properties | ||
9 | { | ||
10 | return ( | ||
11 | ) | ||
12 | } | ||
13 | |||
14 | sub class_name | ||
15 | { | ||
16 | return '������� ����������'; | ||
17 | } | ||
18 | |||
19 | sub class_description | ||
20 | { | ||
21 | return '������� ����������'; | ||
22 | } | ||
23 | |||
24 | sub class_table | ||
25 | { | ||
26 | return '@NAME@::SQL::SampleTable'; | ||
27 | } | ||
28 | |||
29 | 1; |