pub/Impl: Lib/IMPL/Class/Meta.pm annotate

annotate Lib/IMPL/Class/Meta.pm @ 229:47f77e6409f7

heavily reworked the resource model of the web application: *some ResourcesContraact functionality moved to Resource +Added CustomResource *Corrected action handlers

author	sergey
date	Sat, 29 Sep 2012 02:34:47 +0400
parents	a8db61d0ed33
children	6d8092d8ce1b

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
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	4 use Carp qw(carp);
173 aaab45153411 minor bugfixes sourcer parents: 171 diff changeset	5 use IMPL::clone qw(clone);
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	6
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	7 my %class_meta;
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	8 my %class_data;
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	9
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	10 sub SetMeta {
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	11 my ($class,$meta_data) = @_;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	12 $class = ref $class if ref $class;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	13
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	14 # тут нельзя использовать стандартное исключение, поскольку для него используется
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	15 # класс IMPL::Object::Accessor, который наследуется от текущего класса
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	16 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	17
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	18 push @{$class_meta{$class}{ref $meta_data}},$meta_data;
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
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	21 sub set_meta {
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	22 goto &SetMeta;
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	23 }
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	24
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	25 sub GetMeta {
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	26 my ($class,$meta_class,$predicate,$deep) = @_;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	27 $class = ref $class if ref $class;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	28 no strict 'refs';
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	29 my @result;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	30
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	31 if ($deep) {
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	32 @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	33 }
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 if ($predicate) {
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	36 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	37 } else {
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	38 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	39 }
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	40 wantarray ? @result : \@result;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	41 }
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	42
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	43 sub get_meta {
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	44 goto &GetMeta;
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	45 }
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	46
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	47 sub class_data {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	48 my $class = shift;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	49 $class = ref $class \|\| $class;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	50
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	51 carp 'The method is obsolete, use static_accessor($name,$value,\'clone\') instead';
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	52
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	53 if (@_ > 1) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	54 my ($name,$value) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	55 return $class_data{$class}{$name} = $value;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	56 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	57 my ($name) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	58
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	59 if( exists $class_data{$class}{$name} ) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	60 $class_data{$class}{$name};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	61 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	62 if ( my $value = $class->_find_class_data($name) ) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	63 $class_data{$class}{$name} = clone($value);
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	64 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	65 undef;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	66 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	67 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	68 }
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	69 }
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	70
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	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 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	83 $class = ref $class \|\| $class;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	84
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	85 no strict 'refs';
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	86
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	87 *{"${class}::${name}"} = sub {
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	88 my $self = shift;
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	89
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	90 if (@_ > 0) {
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	91 $self = ref $self \|\| $self;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	92
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	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 {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	99 $self->static_accessor_clone($name => clone($value));
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	100 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	101 };
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	102 $value
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	103 };
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	104
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	105 sub static_accessor_inherit {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	106 my ($class,$name,$value) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	107
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	108 no strict 'refs';
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 *{"${class}::$name"} = sub {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	111 my $self = shift;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	112
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	113 if (@_ > 0) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	114 $self = ref $self \|\| $self;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	115
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	116 if ($class ne $self) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	117 $self->static_accessor_inherit( $name => $_[0] ); # define own class data
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	118 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	119 $value = $_[0];
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	120 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	121 } else {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	122 $value ;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	123 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	124 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	125 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	126
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	127 sub static_accessor_own {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	128 my ($class,$name,$value) = @_;
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 no strict 'refs';
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	131
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	132 *{"${class}::$name"} = sub {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	133 my $self = shift;
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 if ($class ne $self) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	136 if (@_ > 0) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	137 $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	138 } else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	139 return;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	140 }
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 if ( @_ > 0 ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	143 $value = $_[0];
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 return $value;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	146 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	147 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	148 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	149 }
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	150
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	151 sub _find_class_data {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	152 my ($class,$name) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	153
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	154 no strict 'refs';
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	155
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	156 exists $class_data{$_}{$name} and return $class_data{$_}{$name} foreach @{"${class}::ISA"};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	157
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	158 my $val;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	159 $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	160 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	161
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	162 1;
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	163
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	164 __END__
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 =pod
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 =head1 NAME
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	169
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	170 C<IMPL::Class::Meta> - информация хранимая на уровне класса.
90 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 =head1 SYNOPSIS
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 =begin code
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 package InfoMeta;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	177
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	178 use parent qw(IMPL::Object IMPL::Object::Autofill);
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	179 use IMPL::Class::Property;
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 __PACKAGE__->PassThroughArgs;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	182
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	183 BEGIN {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	184 public property name => prop_get \| owner_set;
90 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 package InfoExMeta;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	188 use parent qw(InfoMeta);
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	189
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	190 __PACKAGE__->PassThroughArgs;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	191
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	192 BEGIN {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	193 public property description => prop_all;
90 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 package Foo;
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 __PACKAGE__->set_meta(new InfoMeta(name => 'info'));
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	199 __PACKAGE__->set_meta(new InfoExMeta(name => 'infoEx', description => 'extended info' ));
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 package main;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	202
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	203 # 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	204 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	205
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	206 # get all InfoExMeta meta
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	207 @info = Foo->get_meta('InfoExMeta'); # will get only 'infoEx'
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 # get filtered meta
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	210 @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	211
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	212 =end code
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 =head1 DESCRIPTION
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	215
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	216 Позвоялет расширять информацию о типах (класса) при помощи метаданных, метаданными являются любые объекты,
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	217 притом выборка метаданных приоизводится по их типу (классу), что позволяет выбрать все однотипные метаданные.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	218
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	219 Существует возможность выборки метаданных с учетом унаследованных от базовых классов
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	220
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	221 =head1 MEMBERS
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	222
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	223 =head2 C<set_meta($meta_data)>
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	224
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	225 Добавляет метаданные C<$meta_data> к классу.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	226
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	227 =head2 C<get_meta($meta_class,$predicate,$deep)>
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	228
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	229 Выбирает метаданные типа C<$meta_class> и его наследников, с возможностью фильтрации и получения
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	230 метаданных базовых классов.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	231
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	232 =over
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	233
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	234 =item C<$meta_class>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	235
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	236 Тип метаданных
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	237
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	238 =item C<$predicate>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	239
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	240 Подпрограмма, которая будет вызываться для каждых найденных метаданных и на основе результата
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	241 ее выполнения метаданные будут включены в результат или нет. Получеат в качестве параметра
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	242 объект с метаданными, возвращает C<true> - включить метаданные в результа, C<false> - пропустить
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	243 метаданные как не подходящие. Также переменная C<$_> ссылается на текущий объект с метаданными.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	244
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	245 =begin code
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	246
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	247 my @info = Foo->get_meta(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	248 'InfoMeta',
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	249 sub { ref $_ eq 'InfoMeta'}, # exclude subclasses ('InfoExMeta')
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	250 1 # deep search
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	251 );
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	252
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	253 my @info = Foo->get_meta(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	254 'InfoMeta',
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	255 sub {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	256 my $item = shift;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	257 ref $item eq 'InfoMeta' # exclude subclasses ('InfoExMeta')
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	258 },
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	259 1 # deep search
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	260 );
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	261
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	262 =end code
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	263
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	264 =item C<$deep>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	265
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	266 Осуществлять поиск по базовым классам.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	267
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	268 =back
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	269
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	270 =head2 C<static_accessor($name[,$value[,$inherit]])>
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	271
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	272 Создает статическое свойство с именем C<$name> и начальным значением C<$value>.
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	273
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	274 Параметр C<$inherit> контролирует то, как наследуются значения.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	275
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	276 =over
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	277
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	278 =item * C<inherit>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	279
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 получено от родителя.
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<clone>
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 которые модифицирю само значение (например значением является ссылка на хеш,
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 =item * C<own>
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 у предка. Начальное значение для этого статического свойства C<undef>.
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 =back
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<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	300 соответственно. Эти методы можно вызывать явно
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	301 C<static_accessor_*($name[,$value])>.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	302
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	303
6ce1f052b90a temp commit wizard parents: 153 diff changeset	304 =begin code
6ce1f052b90a temp commit wizard parents: 153 diff changeset	305
6ce1f052b90a temp commit wizard parents: 153 diff changeset	306 package Foo;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	307 use parent qw(IMPL::Class::Meta);
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	308
6ce1f052b90a temp commit wizard parents: 153 diff changeset	309 __PACKAGE__->static_accessor( info => { version => 1 } );
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	310 __PACKAGE__->static_accessor( mappings => { toString => \&ToString }, 'clone' );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	311 __PACKAGE__->static_accessor( _instance => undef, 'own' );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	312
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	313 sub ToString {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	314 "[object Foo]";
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	315 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	316
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	317 sub default {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	318 my ($self) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	319
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	320 $self = ref $self \|\| $self;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	321 return $self->_instance ? $self->_instance : $self->_instance($self->new());
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	322 }
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	323
6ce1f052b90a temp commit wizard parents: 153 diff changeset	324 package Bar;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	325 use parent qw(Foo);
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	326
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	327 __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	328 __PACKAGE__->mappings->{sayHello} = \&SayHello; # will not affect Foo->mappings;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	329
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	330 package main;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	331
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	332 my $foo = Foo->default; # will be a Foo object
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	333 my $bar = Bar->default; # will be a Bar object
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	334
6ce1f052b90a temp commit wizard parents: 153 diff changeset	335 =end code
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	336
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	337 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Class/Meta.pm @ 229:47f77e6409f7