Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) |
---|
package @NAME@::SampleCustomDocument; use strict; use @NAME@::SQL::SampleTable; use base 'Contenido::Document'; sub extra_properties { return ( ) } sub class_name { return '������� ����������'; } sub class_description { return '������� ����������'; } sub class_table { return '@NAME@::SQL::SampleTable'; } 1;