Mercurial > pub > Impl
diff Lib/IMPL/declare.pm @ 275:6253872024a4
*refactoring IMPL::Class
author | cin |
---|---|
date | Thu, 31 Jan 2013 02:18:31 +0400 |
parents | 32aceba4ee6d |
children | 4ddb27ff4a0b |
line wrap: on
line diff
--- a/Lib/IMPL/declare.pm Wed Jan 30 03:30:28 2013 +0400 +++ b/Lib/IMPL/declare.pm Thu Jan 31 02:18:31 2013 +0400 @@ -108,10 +108,10 @@ my $propInfo = IMPL::Class::PropertyInfo->new( { - Name => $prop, - Mutators => $spec, - Class => $caller, - Access => $prop =~ /^_/ + name => $prop, + mutators => $spec, + class => $caller, + access => $prop =~ /^_/ ? ACCESS_PRIVATE : ACCESS_PUBLIC }