Line # Revision Author
1 234 ahitrov package blogs::MemberLink;
2
3 use strict;
4 use vars qw(@ISA);
5
6 use Contenido::Link;
7 @ISA = ('Contenido::Link');
8
9 sub extra_properties
10 {
11 return (
12 );
13 }
14
15 sub class_name
16 {
17 return 'Участник блога';
18 }
19
20 sub class_description
21 {
22 return 'Связь между пользователями и блогами';
23 }
24
25 #sub available_sources
26 #{
27 # return [ qw(formula1::Championship) ];
28 #}
29
30 sub available_destinations
31 {
32 return [ qw(blogs::Blog) ];
33 }
34
35 sub class_table
36 {
37 return 'blogs::SQL::MembersTable';
38 }
39
40 1;