annotate Lib/IMPL/Class/Meta.pm @ 165:76515373dac0

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:06:48 +0400
parents eb3e9861a761
children 59e5fcb59d86
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::Meta;
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
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
4 use Storable qw(dclone);
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
5
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
6 my %class_meta;
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
7 my %class_data;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
8
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
9 sub set_meta {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
10 my ($class,$meta_data) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
11 $class = ref $class if ref $class;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
12
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
13 # тут нельзя использовать стандартное исключение, поскольку для него используется
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
14 # класс IMPL::Object::Accessor, который наследуется от текущего класса
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
15 die "The meta_data parameter should be an object" if not ref $meta_data;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
16
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
17 push @{$class_meta{$class}{ref $meta_data}},$meta_data;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
18 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
19
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
20 sub get_meta {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
21 my ($class,$meta_class,$predicate,$deep) = @_;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
22 $class = ref $class if ref $class;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
23 no strict 'refs';
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
24 my @result;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
25
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
26 if ($deep) {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
27 @result = map { $_->can('get_meta') ? $_->get_meta($meta_class,$predicate,$deep) : () } @{$class.'::ISA'};
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
28 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
29
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
30 if ($predicate) {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
31 push @result,grep( &$predicate($_), map( @{$class_meta{$class}{$_}}, grep( $_->isa($meta_class), keys %{$class_meta{$class} || {}} ) ) );
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
32 } else {
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
33 push @result, map( @{$class_meta{$class}{$_} || []}, grep( $_->isa($meta_class), keys %{$class_meta{$class} || {}} ) );
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
34 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
35 wantarray ? @result : \@result;
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
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
38 sub class_data {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
39 my $class = shift;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
40 $class = ref $class || $class;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
41
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
42 if (@_ > 1) {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
43 my ($name,$value) = @_;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
44 return $class_data{$class}{$name} = $value;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
45 } else {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
46 my ($name) = @_;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
47
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
48 if( exists $class_data{$class}{$name} ) {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
49 $class_data{$class}{$name};
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
50 } else {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
51 if ( my $value = $class->_find_class_data($name) ) {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
52 $class_data{$class}{$name} = dclone($value);
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
53 } else {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
54 undef;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
55 }
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
56 }
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
57 }
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
58 }
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
59
163
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
60 sub static_accessor {
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
61 my ($class,$name,$value) = @_;
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
62 $class = ref $class || $class;
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
63
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
64 no strict 'refs';
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
65
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
66 *{"${class}::${name}"} = sub {
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
67 if (@_ > 1) {
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
68 my $self = shift;
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
69 $self = ref $self || $self;
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
70
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
71 if ($class ne $self) {
164
eb3e9861a761 SQL traits in progress
wizard
parents: 163
diff changeset
72 $self->static_accessor( $name => $_[0]); # define own class data
163
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
73 } else {
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
74 $value = $_[0];
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
75 }
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
76 } else {
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
77 $value;
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
78 }
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
79 };
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
80 $value
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
81 };
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
82
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
83 sub _find_class_data {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
84 my ($class,$name) = @_;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
85
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
86 no strict 'refs';
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
87
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
88 exists $class_data{$_}{$name} and return $class_data{$_}{$name} foreach @{"${class}::ISA"};
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
89
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
90 my $val;
153
3765adf1803f minor fixes
wizard
parents: 134
diff changeset
91 $val = $_->can('_find_class_data') ? $_->_find_class_data($name) : undef and return $val foreach @{"${class}::ISA"};
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
92 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
93
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 0
diff changeset
94 1;
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
95
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
96 __END__
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
97
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
98 =pod
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
99
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
100 =head1 NAME
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
101
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
102 C<IMPL::Class::Meta> - информация хранимая на уровне класса.
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
103
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
104 =head1 SYNOPSIS
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
105
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
106 =begin code
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
107
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
108 package InfoMeta;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
109
165
76515373dac0 Added Class::Template,
wizard
parents: 164
diff changeset
110 use parent qw(IMPL::Object IMPL::Object::Autofill);
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
111 use IMPL::Class::Property;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
112
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
113 __PACKAGE__->PassThroughArgs;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
114
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
115 BEGIN {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
116 public property name => prop_get | owner_set;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
117 }
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
118
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
119 package InfoExMeta;
165
76515373dac0 Added Class::Template,
wizard
parents: 164
diff changeset
120 use parent qw(InfoMeta);
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
121
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
122 __PACKAGE__->PassThroughArgs;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
123
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
124 BEGIN {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
125 public property description => prop_all;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
126 }
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
127
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
128 package Foo;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
129
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
130 __PACKAGE__->set_meta(new InfoMeta(name => 'info'));
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
131 __PACKAGE__->set_meta(new InfoExMeta(name => 'infoEx', description => 'extended info' ));
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
132
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
133 package main;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
134
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
135 # get all InfoMeta, InfoExMeta will be included, becouse it's derived from InfoMeta
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
136 my @info = Foo->get_meta('InfoMeta'); # will get two objects, 'info' and 'infoEx';
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
137
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
138 # get all InfoExMeta meta
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
139 @info = Foo->get_meta('InfoExMeta'); # will get only 'infoEx'
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
140
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
141 # get filtered meta
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
142 @info = Foo->get_meta('InfoMeta', sub { $_->name eq 'info'} ); # will get only 'info'
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
143
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
144 =end code
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
145
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
146 =head1 DESCRIPTION
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
147
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
148 Позвоялет расширять информацию о типах (класса) при помощи метаданных, метаданными являются любые объекты,
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
149 притом выборка метаданных приоизводится по их типу (классу), что позволяет выбрать все однотипные метаданные.
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
150
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
151 Существует возможность выборки метаданных с учетом унаследованных от базовых классов
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
152
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
153 =head1 MEMBERS
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
154
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
155 =over
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
156
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
157 =item C<set_meta($meta_data)>
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
158
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
159 Добавляет метаданные C<$meta_data> к классу.
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
160
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
161 =item C<get_meta($meta_class,$predicate,$deep)>
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
162
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
163 Выбирает метаданные типа C<$meta_class> и его наследников, с возможностью фильтрации и получения
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
164 метаданных базовых классов.
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
165
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
166 =over
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
167
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
168 =item C<$meta_class>
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
169
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
170 Тип метаданных
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
171
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
172 =item C<$predicate>
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
173
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
174 Подпрограмма, которая будет вызываться для каждых найденных метаданных и на основе результата
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
175 ее выполнения метаданные будут включены в результат или нет. Получеат в качестве параметра
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
176 объект с метаданными, возвращает C<true> - включить метаданные в результа, C<false> - пропустить
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
177 метаданные как не подходящие. Также переменная C<$_> ссылается на текущий объект с метаданными.
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
178
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
179 =begin code
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
180
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
181 my @info = Foo->get_meta(
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
182 'InfoMeta',
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
183 sub { ref $_ eq 'InfoMeta'}, # exclude subclasses ('InfoExMeta')
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
184 1 # deep search
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
185 );
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
186
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
187 my @info = Foo->get_meta(
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
188 'InfoMeta',
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
189 sub {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
190 my $item = shift;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
191 ref $item eq 'InfoMeta' # exclude subclasses ('InfoExMeta')
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
192 },
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
193 1 # deep search
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
194 );
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
195
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
196 =end code
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
197
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
198 =item C<$deep>
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
199
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
200 Осуществлять поиск по базовым классам.
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
201
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
202 =back
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
203
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
204 =item C<class_data($name,$new_value)>
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
205
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
206 В отличии от метаданных, C<class_data> не накапливает информацию,
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
207 а хранит только один экземпляр для одного ключа C<$name>.
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
208
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
209 Если новое значение не задано, то осуществляется выборка сохраненного,
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
210 если текущий класс не имеет сохраненного значения, то оно ищется в базовых
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
211 классах, затем копия найденного значения сохраняется в текущем классе и
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
212 возвращается наружу. Это позволяет базовым классам задавать значение по-умолчанию,
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
213 которые могут быть изменены или заменены субклассами.
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
214
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
215 =begin code
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
216
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
217 package Foo;
165
76515373dac0 Added Class::Template,
wizard
parents: 164
diff changeset
218 use parent qw(IMPL::Class::Meta);
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
219
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
220 __PACKAGE__->class_data( info => { version => 1 } ); # will be default for all subclasses
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
221
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
222 sub say_version {
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
223 my ($self) = @_;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
224
111
6c25ea91c985 ControllerUnit concept
wizard
parents: 90
diff changeset
225 print $self->class_data('info')->{version};
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
226 }
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
227
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
228 package Bar;
165
76515373dac0 Added Class::Template,
wizard
parents: 164
diff changeset
229 use parent qw(Foo);
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
230
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
231 __PACKAGE__->class_data('info')->{ language } = 'English';
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
232
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
233 package main;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
234
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
235 Foo->class_data('info')->{version} = 2;
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
236 Bar->say_version; # will print '1';
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
237 Foo->say_version; # will print '2';
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
238
163
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
239 =end code
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
240
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
241 =item C<static_accessor($name[,$value])>
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
242
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
243 Создает статическое свойство с именем C<$name> и начальным значением C<$value>.
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
244
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
245 Использование данного свойство аналогично использованию C<class_data>, за исключением
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
246 того, что C<class_data> гарантирует, что наследник обладает собственной копией данных,
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
247 изменение которых не коснется ни базового класса, ни соседей.
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
248
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
249 =begin code
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
250
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
251 package Foo;
165
76515373dac0 Added Class::Template,
wizard
parents: 164
diff changeset
252 use parent qw(IMPL::Class::Meta);
163
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
253
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
254 __PACKAGE__->static_accessor( info => { version => 1 } );
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
255
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
256 package Bar;
165
76515373dac0 Added Class::Template,
wizard
parents: 164
diff changeset
257 use parent qw(Foo);
163
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
258
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
259 __PACKAGE__->info->{language} = 'English'; # Foo->info->{language} will become 'English' to!!!
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
260 __PACKAGE__->info({language => 'English'}); # will define own 'info' but will loose original data.
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
261
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
262 =end code
6ce1f052b90a temp commit
wizard
parents: 153
diff changeset
263
90
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
264
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
265 =back
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
266
dc1da0389db7 Small improvements in the abstract object class
wizard
parents: 49
diff changeset
267 =cut