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

annotate Lib/IMPL/Class/Meta.pm @ 247:2270de2469ff

sync

author	sergey
date	Wed, 31 Oct 2012 04:18:35 +0400
parents	6d8092d8ce1b
children	0f59b2de72af

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
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	90 $self = ref $self \|\| $self;
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	91
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	92 if (@_ > 0) {
194 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 {
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	99 return $self ne $class
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	100 ? $self->static_accessor_clone($name => clone($value))
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	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 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	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 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	120 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	121 $value = $_[0];
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	122 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	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 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	126 };
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	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 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	151 };
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	152
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	153 return $value;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	154 }
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	155
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	156 sub _find_class_data {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	157 my ($class,$name) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	158
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	159 no strict 'refs';
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	160
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	161 exists $class_data{$_}{$name} and return $class_data{$_}{$name} foreach @{"${class}::ISA"};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	162
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	163 my $val;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	164 $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	165 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	166
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	167 1;
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	168
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	169 __END__
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 =pod
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	172
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	173 =head1 NAME
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	174
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	175 C<IMPL::Class::Meta> - информация хранимая на уровне класса.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	176
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	177 =head1 SYNOPSIS
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 package InfoMeta;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	182
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	183 use parent qw(IMPL::Object IMPL::Object::Autofill);
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	184 use IMPL::Class::Property;
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 __PACKAGE__->PassThroughArgs;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	187
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	188 BEGIN {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	189 public property name => prop_get \| owner_set;
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	190 }
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 package InfoExMeta;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	193 use parent qw(InfoMeta);
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 __PACKAGE__->PassThroughArgs;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	196
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	197 BEGIN {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	198 public property description => prop_all;
90 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 package Foo;
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 __PACKAGE__->set_meta(new InfoMeta(name => 'info'));
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	204 __PACKAGE__->set_meta(new InfoExMeta(name => 'infoEx', description => 'extended info' ));
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 package main;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	207
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	208 # 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	209 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	210
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	211 # get all InfoExMeta meta
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	212 @info = Foo->get_meta('InfoExMeta'); # will get only 'infoEx'
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 # get filtered meta
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	215 @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	216
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	217 =end code
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	218
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	219 =head1 DESCRIPTION
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	220
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	221 Позвоялет расширять информацию о типах (класса) при помощи метаданных, метаданными являются любые объекты,
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	222 притом выборка метаданных приоизводится по их типу (классу), что позволяет выбрать все однотипные метаданные.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	223
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	224 Существует возможность выборки метаданных с учетом унаследованных от базовых классов
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	225
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	226 =head1 MEMBERS
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	227
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	228 =head2 C<set_meta($meta_data)>
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	229
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	230 Добавляет метаданные C<$meta_data> к классу.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	231
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	232 =head2 C<get_meta($meta_class,$predicate,$deep)>
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	233
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	234 Выбирает метаданные типа C<$meta_class> и его наследников, с возможностью фильтрации и получения
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	235 метаданных базовых классов.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	236
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	237 =over
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	238
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	239 =item C<$meta_class>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	240
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	241 Тип метаданных
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	242
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	243 =item C<$predicate>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	244
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	245 Подпрограмма, которая будет вызываться для каждых найденных метаданных и на основе результата
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	246 ее выполнения метаданные будут включены в результат или нет. Получеат в качестве параметра
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	247 объект с метаданными, возвращает C<true> - включить метаданные в результа, C<false> - пропустить
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	248 метаданные как не подходящие. Также переменная C<$_> ссылается на текущий объект с метаданными.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	249
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	250 =begin code
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 my @info = Foo->get_meta(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	253 'InfoMeta',
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	254 sub { ref $_ eq 'InfoMeta'}, # exclude subclasses ('InfoExMeta')
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	255 1 # deep search
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	256 );
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	257
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	258 my @info = Foo->get_meta(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	259 'InfoMeta',
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	260 sub {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	261 my $item = shift;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	262 ref $item eq 'InfoMeta' # exclude subclasses ('InfoExMeta')
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	263 },
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	264 1 # deep search
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	265 );
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 =end code
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	268
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	269 =item C<$deep>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	270
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	271 Осуществлять поиск по базовым классам.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	272
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	273 =back
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	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 6ce1f052b90a temp commit wizard parents: 153 diff changeset	276
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	277 Создает статическое свойство с именем C<$name> и начальным значением C<$value>.
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	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 6ce1f052b90a temp commit wizard parents: 153 diff changeset	308
6ce1f052b90a temp commit wizard parents: 153 diff changeset	309 =begin code
6ce1f052b90a temp commit wizard parents: 153 diff changeset	310
6ce1f052b90a temp commit wizard parents: 153 diff changeset	311 package Foo;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	312 use parent qw(IMPL::Class::Meta);
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	313
6ce1f052b90a temp commit wizard parents: 153 diff changeset	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 6ce1f052b90a temp commit wizard parents: 153 diff changeset	328
6ce1f052b90a temp commit wizard parents: 153 diff changeset	329 package Bar;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	330 use parent qw(Foo);
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	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 6ce1f052b90a temp commit wizard parents: 153 diff changeset	339
6ce1f052b90a temp commit wizard parents: 153 diff changeset	340 =end code
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	341
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	342 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Class/Meta.pm @ 247:2270de2469ff