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

annotate Lib/IMPL/Class/Meta.pm @ 394:2c14f66efa08

minor changes

author	cin
date	Tue, 18 Feb 2014 18:17:20 +0400
parents	7c784144d2f1
children

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
279 af8af4b8337e sync sergey parents: 263 diff changeset	4 use Carp qw(carp confess);
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) = @_;
279 af8af4b8337e sync sergey parents: 263 diff changeset	12 $class = ref $class \|\| $class;
49 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, который наследуется от текущего класса
279 af8af4b8337e sync sergey parents: 263 diff changeset	16 confess "The meta_data parameter should be an object" if not ref $meta_data;
49 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 ($predicate) {
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	32 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	33 } else {
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	34 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	35 }
369 7c784144d2f1 Implemented object metadata class, cleanup cin parents: 280 diff changeset	36
7c784144d2f1 Implemented object metadata class, cleanup cin parents: 280 diff changeset	37 if ($deep) {
7c784144d2f1 Implemented object metadata class, cleanup cin parents: 280 diff changeset	38 push @result, map { $_->can('GetMeta') ? $_->GetMeta($meta_class,$predicate,$deep) : () } @{$class.'::ISA'};
7c784144d2f1 Implemented object metadata class, cleanup cin parents: 280 diff changeset	39 }
7c784144d2f1 Implemented object metadata class, cleanup cin parents: 280 diff changeset	40
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	41 wantarray ? @result : \@result;
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	42 }
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	43
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	44 sub get_meta {
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	45 goto &GetMeta;
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	46 }
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	47
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	48 sub class_data {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	49 my $class = shift;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	50 $class = ref $class \|\| $class;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	51
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	52 carp 'The method is obsolete, use static_accessor($name,$value,\'clone\') instead';
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	53
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	54 if (@_ > 1) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	55 my ($name,$value) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	56 return $class_data{$class}{$name} = $value;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	57 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	58 my ($name) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	59
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	60 if( exists $class_data{$class}{$name} ) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	61 $class_data{$class}{$name};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	62 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	63 if ( my $value = $class->_find_class_data($name) ) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	64 $class_data{$class}{$name} = clone($value);
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	65 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	66 undef;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	67 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	68 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	69 }
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	70 }
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	71
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	72 sub static_accessor {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	73 my ($class,$name,$value,$inherit) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	74
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	75 $inherit \|\|= 'inherit';
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	76
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	77 my $method = "static_accessor_$inherit";
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	78
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	79 return $class->$method($name,$value);
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
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	82 sub static_accessor_clone {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	83 my ($class,$name,$value) = @_;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	84 $class = ref $class \|\| $class;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	85
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	86 no strict 'refs';
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	87
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	88 *{"${class}::${name}"} = sub {
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	89 my $self = shift;
a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	90
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	91 $self = ref $self \|\| $self;
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	92
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	93 if (@_ > 0) {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	94 if ($class ne $self) {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	95 $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	96 } else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	97 $value = $_[0];
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	98 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	99 } else {
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	100 return $self ne $class
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	101 ? $self->static_accessor_clone($name => clone($value))
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	102 : $value;
229 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 };
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	105 return $value;
229 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
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	108 sub static_accessor_inherit {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	109 my ($class,$name,$value) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	110
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	111 no strict 'refs';
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 *{"${class}::$name"} = sub {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	114 my $self = shift;
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 (@_ > 0) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	117 $self = ref $self \|\| $self;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	118
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	119 if ($class ne $self) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	120 $self->static_accessor_inherit( $name => $_[0] ); # define own class data
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	121 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	122 $value = $_[0];
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	123 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	124 } else {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	125 $value ;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	126 }
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	127 };
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	128 return $value;
229 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
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	131 sub static_accessor_own {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	132 my ($class,$name,$value) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	133
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	134 no strict 'refs';
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	135
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	136 *{"${class}::$name"} = sub {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	137 my $self = shift;
263 0f59b2de72af fixed IMPL::DOM::Schema circular module references sergey* parents: 230 diff changeset	138 $self = ref $self \|\| $self;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	139
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	140 if ($class ne $self) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	141 if (@_ > 0) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	142 $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	143 } else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	144 return;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	145 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	146 } else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	147 if ( @_ > 0 ) {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	148 $value = $_[0];
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	149 } else {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	150 return $value;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	151 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	152 }
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	153 };
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	154
6d8092d8ce1b reworked IMPL::Security sergey* parents: 229 diff changeset	155 return $value;
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	156 }
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	157
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	158 sub _find_class_data {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	159 my ($class,$name) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	160
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	161 no strict 'refs';
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	162
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	163 exists $class_data{$_}{$name} and return $class_data{$_}{$name} foreach @{"${class}::ISA"};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	164
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	165 my $val;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	166 $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	167 }
49 16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	168
16ada169ca75 migrating to the Eclipse IDE wizard@linux-odin.local parents: 0 diff changeset	169 1;
90 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 __END__
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 =pod
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	174
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	175 =head1 NAME
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	176
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	177 C<IMPL::Class::Meta> - информация хранимая на уровне класса.
90 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 =head1 SYNOPSIS
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 =begin code
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 package InfoMeta;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	184
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	185 use parent qw(IMPL::Object IMPL::Object::Autofill);
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	186 use IMPL::Class::Property;
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 __PACKAGE__->PassThroughArgs;
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 BEGIN {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	191 public property name => prop_get \| owner_set;
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	192 }
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	193
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	194 package InfoExMeta;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	195 use parent qw(InfoMeta);
90 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 __PACKAGE__->PassThroughArgs;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	198
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	199 BEGIN {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	200 public property description => prop_all;
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	201 }
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	202
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	203 package Foo;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	204
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	205 __PACKAGE__->set_meta(new InfoMeta(name => 'info'));
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	206 __PACKAGE__->set_meta(new InfoExMeta(name => 'infoEx', description => 'extended info' ));
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 package main;
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	209
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	210 # 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	211 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	212
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	213 # get all InfoExMeta meta
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	214 @info = Foo->get_meta('InfoExMeta'); # will get only 'infoEx'
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	215
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	216 # get filtered meta
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	217 @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	218
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	219 =end code
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 DESCRIPTION
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	222
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	223 Позвоялет расширять информацию о типах (класса) при помощи метаданных, метаданными являются любые объекты,
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	224 притом выборка метаданных приоизводится по их типу (классу), что позволяет выбрать все однотипные метаданные.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	225
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	226 Существует возможность выборки метаданных с учетом унаследованных от базовых классов
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	227
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	228 =head1 MEMBERS
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	229
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	230 =head2 C<set_meta($meta_data)>
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	231
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	232 Добавляет метаданные C<$meta_data> к классу.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	233
209 a8db61d0ed33 IMPL::Class::Meta refactoring cin parents: 194 diff changeset	234 =head2 C<get_meta($meta_class,$predicate,$deep)>
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	235
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	236 Выбирает метаданные типа C<$meta_class> и его наследников, с возможностью фильтрации и получения
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	237 метаданных базовых классов.
90 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 =over
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	240
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	241 =item C<$meta_class>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	242
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	243 Тип метаданных
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 =item C<$predicate>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	246
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	247 Подпрограмма, которая будет вызываться для каждых найденных метаданных и на основе результата
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	248 ее выполнения метаданные будут включены в результат или нет. Получеат в качестве параметра
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	249 объект с метаданными, возвращает C<true> - включить метаданные в результа, C<false> - пропустить
d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	250 метаданные как не подходящие. Также переменная C<$_> ссылается на текущий объект с метаданными.
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 =begin code
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	253
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	254 my @info = Foo->get_meta(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	255 'InfoMeta',
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	256 sub { ref $_ eq 'InfoMeta'}, # exclude subclasses ('InfoExMeta')
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	257 1 # deep search
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	258 );
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	259
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	260 my @info = Foo->get_meta(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	261 'InfoMeta',
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	262 sub {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	263 my $item = shift;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	264 ref $item eq 'InfoMeta' # exclude subclasses ('InfoExMeta')
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	265 },
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	266 1 # deep search
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
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	269 =end code
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	270
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	271 =item C<$deep>
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	272
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	273 Осуществлять поиск по базовым классам.
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	274
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	275 =back
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	276
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	277 =head2 C<static_accessor($name[,$value[,$inherit]])>
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	278
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	279 Создает статическое свойство с именем C<$name> и начальным значением C<$value>.
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	280
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	281 Параметр C<$inherit> контролирует то, как наследуются значения.
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 =over
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 =item * C<inherit>
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 =item * C<clone>
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 а потомки добавляют или меняют значения в этом хеше).
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 =item * C<own>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	299
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<undef>.
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 =back
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	304
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_inherit>, C<static_accessor_clone>, C<static_accessor_own>
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	307 соответственно. Эти методы можно вызывать явно
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	308 C<static_accessor_*($name[,$value])>.
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	309
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	310
6ce1f052b90a temp commit wizard parents: 153 diff changeset	311 =begin code
6ce1f052b90a temp commit wizard parents: 153 diff changeset	312
6ce1f052b90a temp commit wizard parents: 153 diff changeset	313 package Foo;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	314 use parent qw(IMPL::Class::Meta);
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	315
6ce1f052b90a temp commit wizard parents: 153 diff changeset	316 __PACKAGE__->static_accessor( info => { version => 1 } );
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	317 __PACKAGE__->static_accessor( mappings => { toString => \&ToString }, 'clone' );
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	318 __PACKAGE__->static_accessor( _instance => undef, 'own' );
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 sub ToString {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	321 "[object Foo]";
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	322 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	323
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	324 sub default {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	325 my ($self) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	326
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	327 $self = ref $self \|\| $self;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	328 return $self->_instance ? $self->_instance : $self->_instance($self->new());
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	329 }
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	330
6ce1f052b90a temp commit wizard parents: 153 diff changeset	331 package Bar;
165 76515373dac0 Added Class::Template, wizard parents: 164 diff changeset	332 use parent qw(Foo);
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	333
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	334 __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	335 __PACKAGE__->mappings->{sayHello} = \&SayHello; # will not affect Foo->mappings;
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 package main;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	338
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	339 my $foo = Foo->default; # will be a Foo object
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 209 diff changeset	340 my $bar = Bar->default; # will be a Bar object
163 6ce1f052b90a temp commit wizard parents: 153 diff changeset	341
6ce1f052b90a temp commit wizard parents: 153 diff changeset	342 =end code
90 dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	343
dc1da0389db7 Small improvements in the abstract object class wizard parents: 49 diff changeset	344 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Class/Meta.pm @ 394:2c14f66efa08