annotate Lib/IMPL/Class/MemberInfo.pm @ 393:69a1f1508696

minor security refactoring
author cin
date Fri, 14 Feb 2014 16:41:12 +0400
parents 4ddb27ff4a0b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
1 package IMPL::Class::MemberInfo;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
2 use strict;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
3
278
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
4 use IMPL::Const qw(:prop);
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
5 BEGIN {
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
6 our @ISA = qw(IMPL::Object::Accessor);
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
7 }
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
8
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
9 require IMPL::Object::Accessor;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
10 require IMPL::Exception;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
11
278
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
12 # использовать ClassPropertyImplementor не получится, поскольку он будет
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
13 # создавать экземпляры PropertyInfo, который не доописан (в нем не определены
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
14 # члены)
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
15 __PACKAGE__->mk_accessors(
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
16 qw(
275
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
17 name
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
18 access
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
19 class
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
20 attributes
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
21 )
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
22 );
278
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
23
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
24 our %CTOR = (
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
25 'IMPL::Object::Accessor' => undef
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
26 );
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
27
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
28 sub CTOR {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
29 my $this = shift;
278
4ddb27ff4a0b core refactoring
cin
parents: 275
diff changeset
30
275
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
31 die new IMPL::Exception('The name is required for the member') unless $this->name;
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
32 die new IMPL::Exception('The class is required for the member') unless $this->class;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
33
275
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
34 $this->attributes({}) unless defined $this->attributes;
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
35 $this->access(3) unless $this->access;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
36 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
37
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
38 1;
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
39
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
40 __END__
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
41
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
42 =pod
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
43
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
44 =head1 NAME
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
45
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
46 C<IMPL::Class::MemberInfo> - информация о члене класса.
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
47
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
48 =head1 DESCRIPTION
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
49
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
50 Данный класс является базовым для таких классов как C<IMPL::Class::PropertyInfo>, C<IMPL::Class::MethodInfo> и
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
51 предназначен для хренения метаданных.
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
52
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
53 Данный класс наследуется от C<IMPL::Object::Accessor> и не содержит в себе метаданных о своих членах.
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
54
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
55 =head1 MEMBERS
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
56
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
57 =over
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
58
275
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
59 =item C<[get,set] name>
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
60
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
61 Имя члена.
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
62
275
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
63 =item C<[get,set] access>
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
64
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
65 Default public.
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
66
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
67 Атрибут доступа ( public | private | protected )
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
68
275
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
69 =item C<[get,set] class>
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
70
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
71 Класс владелец
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
72
275
6253872024a4 *refactoring IMPL::Class
cin
parents: 236
diff changeset
73 =item C<[get,set] attributes>
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
74
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
75 Дополнительные атрибуты
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
76
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
77 =item C<Implement()>
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
78
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
79 При реализации собственного субкласса, данный метод может быть переопределен для
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 165
diff changeset
80 реализации дополнительной обработки (например, создание методов доступа для свойств).
163
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
81
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
82 =back
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
83
6ce1f052b90a temp commit
wizard
parents: 134
diff changeset
84 =cut