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
             }