Mercurial > pub > Impl
annotate Lib/IMPL/Class/Meta.pm @ 241:f48a1a9f4fa2
+Added ViewResult to allow implementation of the view environment.
*TTDocuments now storing creation parameters
*TTControls automatically propagating layout and title meta to their attributes
+Added UnauthorizaedException web exception
*minor fixes
| author | sergey |
|---|---|
| date | Thu, 18 Oct 2012 04:49:55 +0400 |
| parents | 6d8092d8ce1b |
| children | 0f59b2de72af |
| rev | line source |
|---|---|
| 49 | 1 package IMPL::Class::Meta; |
| 2 use strict; | |
| 3 | |
| 209 | 4 use Carp qw(carp); |
| 173 | 5 use IMPL::clone qw(clone); |
| 90 | 6 |
| 49 | 7 my %class_meta; |
| 90 | 8 my %class_data; |
| 49 | 9 |
| 209 | 10 sub SetMeta { |
| 49 | 11 my ($class,$meta_data) = @_; |
| 12 $class = ref $class if ref $class; | |
| 13 | |
| 180 | 14 # тут нельзя использовать стандартное исключение, поскольку для него используется |
| 15 # класс IMPL::Object::Accessor, который наследуется от текущего класса | |
| 49 | 16 die "The meta_data parameter should be an object" if not ref $meta_data; |
| 17 | |
| 18 push @{$class_meta{$class}{ref $meta_data}},$meta_data; | |
| 19 } | |
| 20 | |
| 209 | 21 sub set_meta { |
| 22 goto &SetMeta; | |
| 23 } | |
| 24 | |
| 25 sub GetMeta { | |
| 49 | 26 my ($class,$meta_class,$predicate,$deep) = @_; |
| 27 $class = ref $class if ref $class; | |
| 28 no strict 'refs'; | |
| 29 my @result; | |
| 30 | |
| 31 if ($deep) { | |
| 32 @result = map { $_->can('get_meta') ? $_->get_meta($meta_class,$predicate,$deep) : () } @{$class.'::ISA'}; | |
| 33 } | |
| 34 | |
| 35 if ($predicate) { | |
| 36 push @result,grep( &$predicate($_), map( @{$class_meta{$class}{$_}}, grep( $_->isa($meta_class), keys %{$class_meta{$class} || {}} ) ) ); | |
| 37 } else { | |
| 38 push @result, map( @{$class_meta{$class}{$_} || []}, grep( $_->isa($meta_class), keys %{$class_meta{$class} || {}} ) ); | |
| 39 } | |
| 40 wantarray ? @result : \@result; | |
| 41 } | |
| 42 | |
| 209 | 43 sub get_meta { |
| 44 goto &GetMeta; | |
| 45 } | |
| 46 | |
| 90 | 47 sub class_data { |
| 194 | 48 my $class = shift; |
| 49 $class = ref $class || $class; | |
| 50 | |
| 209 | 51 carp 'The method is obsolete, use static_accessor($name,$value,\'clone\') instead'; |
| 52 | |
| 194 | 53 if (@_ > 1) { |
| 54 my ($name,$value) = @_; | |
| 55 return $class_data{$class}{$name} = $value; | |
| 56 } else { | |
| 57 my ($name) = @_; | |
| 58 | |
| 59 if( exists $class_data{$class}{$name} ) { | |
| 60 $class_data{$class}{$name}; | |
| 61 } else { | |
| 62 if ( my $value = $class->_find_class_data($name) ) { | |
| 63 $class_data{$class}{$name} = clone($value); | |
| 64 } else { | |
| 65 undef; | |
| 66 } | |
| 67 } | |
| 68 } | |
| 90 | 69 } |
| 70 | |
| 163 | 71 sub static_accessor { |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
72 my ($class,$name,$value,$inherit) = @_; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
73 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
74 $inherit ||= 'inherit'; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
75 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
76 my $method = "static_accessor_$inherit"; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
77 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
78 return $class->$method($name,$value); |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
79 } |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
80 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
81 sub static_accessor_clone { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
82 my ($class,$name,$value) = @_; |
| 194 | 83 $class = ref $class || $class; |
| 84 | |
| 85 no strict 'refs'; | |
| 86 | |
| 87 *{"${class}::${name}"} = sub { | |
| 209 | 88 my $self = shift; |
| 89 | |
| 230 | 90 $self = ref $self || $self; |
| 91 | |
| 209 | 92 if (@_ > 0) { |
| 194 | 93 if ($class ne $self) { |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
94 $self->static_accessor_clone( $name => $_[0] ); # define own class data |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
95 } else { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
96 $value = $_[0]; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
97 } |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
98 } else { |
| 230 | 99 return $self ne $class |
| 100 ? $self->static_accessor_clone($name => clone($value)) | |
| 101 : $value; | |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
102 } |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
103 }; |
| 230 | 104 return $value; |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
105 }; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
106 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
107 sub static_accessor_inherit { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
108 my ($class,$name,$value) = @_; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
109 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
110 no strict 'refs'; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
111 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
112 *{"${class}::$name"} = sub { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
113 my $self = shift; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
114 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
115 if (@_ > 0) { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
116 $self = ref $self || $self; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
117 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
118 if ($class ne $self) { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
119 $self->static_accessor_inherit( $name => $_[0] ); # define own class data |
| 194 | 120 } else { |
| 121 $value = $_[0]; | |
| 122 } | |
| 123 } else { | |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
124 $value ; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
125 } |
| 230 | 126 }; |
| 127 return $value; | |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
128 } |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
129 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
130 sub static_accessor_own { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
131 my ($class,$name,$value) = @_; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
132 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
133 no strict 'refs'; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
134 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
135 *{"${class}::$name"} = sub { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
136 my $self = shift; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
137 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
138 if ($class ne $self) { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
139 if (@_ > 0) { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
140 $self->static_accessor_own( $name => $_[0] ); # define own class data |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
141 } else { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
142 return; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
143 } |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
144 } else { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
145 if ( @_ > 0 ) { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
146 $value = $_[0]; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
147 } else { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
148 return $value; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
149 } |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
150 } |
| 230 | 151 }; |
| 152 | |
| 153 return $value; | |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
154 } |
| 163 | 155 |
| 90 | 156 sub _find_class_data { |
| 194 | 157 my ($class,$name) = @_; |
| 158 | |
| 159 no strict 'refs'; | |
| 160 | |
| 161 exists $class_data{$_}{$name} and return $class_data{$_}{$name} foreach @{"${class}::ISA"}; | |
| 162 | |
| 163 my $val; | |
| 164 $val = $_->can('_find_class_data') ? $_->_find_class_data($name) : undef and return $val foreach @{"${class}::ISA"}; | |
| 90 | 165 } |
| 49 | 166 |
| 167 1; | |
| 90 | 168 |
| 169 __END__ | |
| 170 | |
| 171 =pod | |
| 172 | |
| 173 =head1 NAME | |
| 174 | |
| 180 | 175 C<IMPL::Class::Meta> - информация хранимая на уровне класса. |
| 90 | 176 |
| 177 =head1 SYNOPSIS | |
| 178 | |
| 179 =begin code | |
| 180 | |
| 181 package InfoMeta; | |
| 182 | |
| 165 | 183 use parent qw(IMPL::Object IMPL::Object::Autofill); |
| 90 | 184 use IMPL::Class::Property; |
| 185 | |
| 186 __PACKAGE__->PassThroughArgs; | |
| 187 | |
| 188 BEGIN { | |
| 194 | 189 public property name => prop_get | owner_set; |
| 90 | 190 } |
| 191 | |
| 192 package InfoExMeta; | |
| 165 | 193 use parent qw(InfoMeta); |
| 90 | 194 |
| 195 __PACKAGE__->PassThroughArgs; | |
| 196 | |
| 197 BEGIN { | |
| 194 | 198 public property description => prop_all; |
| 90 | 199 } |
| 200 | |
| 201 package Foo; | |
| 202 | |
| 203 __PACKAGE__->set_meta(new InfoMeta(name => 'info')); | |
| 204 __PACKAGE__->set_meta(new InfoExMeta(name => 'infoEx', description => 'extended info' )); | |
| 205 | |
| 206 package main; | |
| 207 | |
| 208 # get all InfoMeta, InfoExMeta will be included, becouse it's derived from InfoMeta | |
| 209 my @info = Foo->get_meta('InfoMeta'); # will get two objects, 'info' and 'infoEx'; | |
| 210 | |
| 211 # get all InfoExMeta meta | |
| 212 @info = Foo->get_meta('InfoExMeta'); # will get only 'infoEx' | |
| 213 | |
| 214 # get filtered meta | |
| 215 @info = Foo->get_meta('InfoMeta', sub { $_->name eq 'info'} ); # will get only 'info' | |
| 216 | |
| 217 =end code | |
| 218 | |
| 219 =head1 DESCRIPTION | |
| 220 | |
| 180 | 221 Позвоялет расширять информацию о типах (класса) при помощи метаданных, метаданными являются любые объекты, |
| 222 притом выборка метаданных приоизводится по их типу (классу), что позволяет выбрать все однотипные метаданные. | |
| 90 | 223 |
| 180 | 224 Существует возможность выборки метаданных с учетом унаследованных от базовых классов |
| 90 | 225 |
| 226 =head1 MEMBERS | |
| 227 | |
| 209 | 228 =head2 C<set_meta($meta_data)> |
| 90 | 229 |
| 180 | 230 Добавляет метаданные C<$meta_data> к классу. |
| 90 | 231 |
| 209 | 232 =head2 C<get_meta($meta_class,$predicate,$deep)> |
| 90 | 233 |
| 180 | 234 Выбирает метаданные типа C<$meta_class> и его наследников, с возможностью фильтрации и получения |
| 235 метаданных базовых классов. | |
| 90 | 236 |
| 237 =over | |
| 238 | |
| 239 =item C<$meta_class> | |
| 240 | |
| 180 | 241 Тип метаданных |
| 90 | 242 |
| 243 =item C<$predicate> | |
| 244 | |
| 180 | 245 Подпрограмма, которая будет вызываться для каждых найденных метаданных и на основе результата |
| 246 ее выполнения метаданные будут включены в результат или нет. Получеат в качестве параметра | |
| 247 объект с метаданными, возвращает C<true> - включить метаданные в результа, C<false> - пропустить | |
| 248 метаданные как не подходящие. Также переменная C<$_> ссылается на текущий объект с метаданными. | |
| 90 | 249 |
| 250 =begin code | |
| 251 | |
| 252 my @info = Foo->get_meta( | |
| 194 | 253 'InfoMeta', |
| 254 sub { ref $_ eq 'InfoMeta'}, # exclude subclasses ('InfoExMeta') | |
| 255 1 # deep search | |
| 90 | 256 ); |
| 257 | |
| 258 my @info = Foo->get_meta( | |
| 194 | 259 'InfoMeta', |
| 260 sub { | |
| 261 my $item = shift; | |
| 262 ref $item eq 'InfoMeta' # exclude subclasses ('InfoExMeta') | |
| 263 }, | |
| 264 1 # deep search | |
| 90 | 265 ); |
| 266 | |
| 267 =end code | |
| 268 | |
| 269 =item C<$deep> | |
| 270 | |
| 180 | 271 Осуществлять поиск по базовым классам. |
| 90 | 272 |
| 273 =back | |
| 274 | |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
275 =head2 C<static_accessor($name[,$value[,$inherit]])> |
| 163 | 276 |
| 180 | 277 Создает статическое свойство с именем C<$name> и начальным значением C<$value>. |
| 163 | 278 |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
279 Параметр C<$inherit> контролирует то, как наследуются значения. |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
280 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
281 =over |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
282 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
283 =item * C<inherit> |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
284 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
285 По умолчанию. Означает, что если для класса не определено значение, оно будет |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
286 получено от родителя. |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
287 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
288 =item * C<clone> |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
289 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
290 Если для класса не определено значение, то оно будет клонировано из |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
291 родительского значения при первом обращении. Полезно, когда родитель задает |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
292 значение по-умолчанию, которое разделяется между несколькими потомками, |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
293 которые модифицирю само значение (например значением является ссылка на хеш, |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
294 а потомки добавляют или меняют значения в этом хеше). |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
295 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
296 =item * C<own> |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
297 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
298 Каждый класс имеет свое собственное значение не зависящее от того, что было |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
299 у предка. Начальное значение для этого статического свойства C<undef>. |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
300 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
301 =back |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
302 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
303 Данный метод является заглушкой, он передает управление |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
304 C<static_accessor_inherit>, C<static_accessor_clone>, C<static_accessor_own> |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
305 соответственно. Эти методы можно вызывать явно |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
306 C<static_accessor_*($name[,$value])>. |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
307 |
| 163 | 308 |
| 309 =begin code | |
| 310 | |
| 311 package Foo; | |
| 165 | 312 use parent qw(IMPL::Class::Meta); |
| 163 | 313 |
| 314 __PACKAGE__->static_accessor( info => { version => 1 } ); | |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
315 __PACKAGE__->static_accessor( mappings => { toString => \&ToString }, 'clone' ); |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
316 __PACKAGE__->static_accessor( _instance => undef, 'own' ); |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
317 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
318 sub ToString { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
319 "[object Foo]"; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
320 } |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
321 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
322 sub default { |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
323 my ($self) = @_; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
324 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
325 $self = ref $self || $self; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
326 return $self->_instance ? $self->_instance : $self->_instance($self->new()); |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
327 } |
| 163 | 328 |
| 329 package Bar; | |
| 165 | 330 use parent qw(Foo); |
| 163 | 331 |
|
229
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
332 __PACKAGE__->info({language => 'English', version => 2}); # will define own 'info' but will loose original data. |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
333 __PACKAGE__->mappings->{sayHello} = \&SayHello; # will not affect Foo->mappings; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
334 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
335 package main; |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
336 |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
337 my $foo = Foo->default; # will be a Foo object |
|
47f77e6409f7
heavily reworked the resource model of the web application:
sergey
parents:
209
diff
changeset
|
338 my $bar = Bar->default; # will be a Bar object |
| 163 | 339 |
| 340 =end code | |
| 90 | 341 |
| 342 =cut |