pub/Impl: Lib/IMPL/Class/Property/Base.pm annotate

annotate Lib/IMPL/Class/Property/Base.pm @ 277:6585464c4664

sync (unstable)

author	sergey
date	Fri, 01 Feb 2013 16:37:59 +0400
parents	8a5da17d7ef9
children

rev	line source
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	1 package IMPL::Class::Property::Base;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	2 use strict;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	3
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	4 use IMPL::Const qw(:all);
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	5
60 b0c068da93ac Lazy activation for the configuration objects (final concept) wizard parents: 59 diff changeset	6 sub factoryParams { qw($class $name $set $get $validator) };
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	7
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	8 my %factoryCache;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	9
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	10 my $accessor_get_no = 'die new IMPL::Exception(\'The property is write only\',$name,$class) unless $get;';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	11 my $accessor_set_no = 'die new IMPL::Exception(\'The property is read only\',$name,$class) unless $set;';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	12
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	13 my $custom_accessor_get = 'unshift @_, $this and goto &$get;';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	14 my $custom_accessor_set = 'unshift @_, $this and goto &$set;';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	15
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	16 my $validator_code = '$this->$validator(@_);';
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	17
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	18 my %access_code = (
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	19 ACCESS_PUBLIC , "",
6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	20 ACCESS_PROTECTED, "die new IMPL::Exception('Can\\'t access the protected member',\$name,\$class,scalar caller) unless UNIVERSAL::isa(scalar caller,\$class);",
6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	21 ACCESS_PRIVATE, "die new IMPL::Exception('Can\\'t access the private member',\$name,\$class,scalar caller) unless caller eq \$class;"
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	22 );
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	23
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	24 my $virtual_call = q(
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	25 my $method = $this->can($name);
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	26 return $this->$method(@_) unless $method == $accessor or caller->isa($class);
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	27 );
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	28
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	29 my $owner_check = "die new IMPL::Exception('Set accessor is restricted to the owner',\$name,\$class,scalar caller) unless caller eq \$class;";
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	30
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	31 sub GenerateAccessors {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	32 my ($self,$param,@params) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	33
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	34 my %accessors;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	35
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	36 if (not ref $param) {
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	37 if ($param & PROP_LIST) {
6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	38 $accessors{get} = ($param & PROP_GET) ? $self->GenerateGetList(@params) : undef;
6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	39 $accessors{set} = ($param & PROP_SET) ? $self->GenerateSetList(@params) : undef;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	40 } else {
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	41 $accessors{get} = ($param & PROP_GET) ? $self->GenerateGet(@params) : undef;
6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	42 $accessors{set} = ($param & PROP_SET) ? $self->GenerateSet(@params) : undef;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	43 }
230 6d8092d8ce1b reworked IMPL::Security sergey* parents: 194 diff changeset	44 $accessors{owner} = (($param & PROP_OWNERSET) == PROP_OWNERSET) ? $owner_check : "";
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	45 } elsif (UNIVERSAL::isa($param,'HASH')) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	46 $accessors{get} = $param->{get} ? $custom_accessor_get : undef;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	47 $accessors{set} = $param->{set} ? $custom_accessor_set : undef;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	48 $accessors{owner} = "";
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	49 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	50 die new IMPL::Exception('The unsupported accessor/mutators supplied',$param);
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	51 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	52
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	53 return \%accessors;
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	54 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	55
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	56 sub GenerateSet {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	57 die new IMPL::Exception("Standard accessors not supported",'Set');
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	58 }
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	59
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	60 sub GenerateGet {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	61 die new IMPL::Exception("Standard accessors not supported",'Get');
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	62 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	63
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	64 sub GenerateGetList {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	65 die new IMPL::Exception("Standard accessors not supported",'GetList');
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	66 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	67
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	68 sub GenerateSetList {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	69 my ($self) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	70 die new IMPL::Exception("Standard accessors not supported",'SetList');
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	71 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	72
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	73 sub Make {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	74 my ($self,$propInfo) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	75
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	76 my $key = $self->MakeFactoryKey($propInfo);
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	77
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	78 my $factoryInfo = $factoryCache{$key};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	79
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	80 unless ($factoryInfo) {
275 6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	81 my $mutators = $self->GenerateAccessors($propInfo->mutators);
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	82 $factoryInfo = {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	83 factory => $self->CreateFactory(
275 6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	84 $access_code{ $propInfo->access },
6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	85 $propInfo->attributes->{validator} ? $validator_code : "",
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	86 $mutators->{owner},
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	87 $mutators->{get} \|\| $accessor_get_no,
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	88 $mutators->{set} \|\| $accessor_set_no
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	89 ),
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	90 mutators => $mutators
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	91 };
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	92 $factoryCache{$key} = $factoryInfo;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	93 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	94
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	95 {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	96 no strict 'refs';
275 6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	97 *{ $propInfo->class.'::'.$propInfo->name } = $factoryInfo->{factory}->($self->RemapFactoryParams($propInfo));
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	98 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	99
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	100 my $mutators = $factoryInfo->{mutators};
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	101
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	102 $propInfo->canGet( $mutators->{get} ? 1 : 0 );
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	103 $propInfo->canSet( $mutators->{set} ? 1 : 0 );
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	104 $propInfo->ownerSet( $mutators->{owner} );
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	105
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	106 1;
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	107 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	108
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	109 # extract from property info: class, name, get_accessor, set_accessor, validator
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	110 sub RemapFactoryParams {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	111 my ($self,$propInfo) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	112
275 6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	113 my $mutators = $propInfo->mutators;
6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	114 my $class = $propInfo->class;
6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	115 my $validator = $propInfo->attributes->{validator};
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	116
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	117 die new IMPL::Exception('Can\'t find the specified validator',$class,$validator) if $validator and ref $validator ne 'CODE' and not $class->can($validator);
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	118
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	119 return (
275 6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	120 $propInfo->get(qw(class name)),
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	121 (ref $mutators?
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	122 ($mutators->{set},$mutators->{get})
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	123 :
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	124 (undef,undef)
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	125 ),
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	126 $validator
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	127 );
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	128 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	129
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	130 sub MakeFactoryKey {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	131 my ($self,$propInfo) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	132
275 6253872024a4 refactoring IMPL::Class cin* parents: 230 diff changeset	133 my ($access,$mutators,$validator) = ($propInfo->get(qw(access mutators)),$propInfo->attributes->{validator});
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	134
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	135 my $implementor = ref $self \|\| $self;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	136
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	137 return join ('',
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	138 $implementor,
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	139 $access,
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	140 $validator ? 'v' : 'n',
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	141 ref $mutators ?
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	142 ('c' , $mutators->{get} ? 1 : 0, $mutators->{set} ? 1 : 0)
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	143 :
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	144 ('s',$mutators)
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	145 );
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	146 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	147
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	148 sub CreateFactory {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	149 my ($self,$codeAccessCheck,$codeValidator,$codeOwnerCheck,$codeGet,$codeSet) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	150
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	151 my $strParams = join(',',$self->factoryParams);
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	152
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	153 my $factory = <<FACTORY;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	154
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	155 sub {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	156 my ($strParams) = \@_;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	157 my \$accessor;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	158 \$accessor = sub {
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	159 my \$this = shift;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	160 $codeAccessCheck
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	161 if (\@_) {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	162 $codeOwnerCheck
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	163 $codeValidator
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	164 $codeSet
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	165 } else {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	166 $codeGet
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	167 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	168 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	169 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	170 FACTORY
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	171
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	172 return ( eval $factory or die new IMPL::Exception("Syntax error due compiling the factory","$@") );
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	173 }
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	174
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	175 1;
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	176
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	177 __END__
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	178
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	179 =pod
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	180
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	181 =head1 DESCRIPTION
0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	182
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 134 diff changeset	183 Базовый класс для реализации свойств.
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	184
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 134 diff changeset	185 По существу свойства состоят из двух методов для установки и получения значений. Также
d1676be8afcc Перекодировка в utf-8 sourcer parents: 134 diff changeset	186 существует несколько вариантов доступа к свойству, и метод верификации значения. Еще
d1676be8afcc Перекодировка в utf-8 sourcer parents: 134 diff changeset	187 свойства могут быть виртуальными.
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	188
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 134 diff changeset	189 Для создания реализатора свойств достаточно унаследовать от этого класса и описать
d1676be8afcc Перекодировка в utf-8 sourcer parents: 134 diff changeset	190 методы для генерации кода получения и установки значения.
80 f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	191
f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	192 =head1 MEMBERS
f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	193
f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	194 =over
f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	195
f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	196 =item C<Make($propertyInfo)>
f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	197
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 134 diff changeset	198 Создает свойство у класса, на основе C<$propertyInfo>, описывающего свойство. C<IMPL::Class::PropertyInfo>.
80 f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	199
f017c0d7527c minor changes + docs wizard parents: 63 diff changeset	200 =back
59 0f3e369553bd Rewritten property implementation (probably become slower but more flexible) wizard parents: diff changeset	201
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 134 diff changeset	202 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Class/Property/Base.pm @ 277:6585464c4664