Mercurial > pub > Impl

diff Lib/IMPL/Class/Property.pm @ 275:6253872024a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*refactoring IMPL::Class
author cin
date Thu, 31 Jan 2013 02:18:31 +0400
parents 76515373dac0
children 8a5da17d7ef9
line wrap: on
line diff
--- a/Lib/IMPL/Class/Property.pm	Wed Jan 30 03:30:28 2013 +0400
+++ b/Lib/IMPL/Class/Property.pm	Thu Jan 31 02:18:31 2013 +0400
@@ -22,13 +22,13 @@
 
 sub property($$;$) {
     my ($propName,$mutators,$attributes) = @_;
-    my $Info = new IMPL::Class::PropertyInfo( {Name => $propName, Mutators => $mutators, Class => scalar(caller), Attributes => $attributes } );
+    my $Info = new IMPL::Class::PropertyInfo( {name => $propName, mutators => $mutators, class => scalar(caller), attributes => $attributes } );
     return $Info;
 }
 
 sub CreateProperty {
     my ($class,$propName,$mutators,$attributes) = @_;
-    my $Info = new IMPL::Class::PropertyInfo( {Name => $propName, Mutators => $mutators, Class => $class, Attributes => $attributes} );
+    my $Info = new IMPL::Class::PropertyInfo( {name => $propName, mutators => $mutators, class => $class, attributes => $attributes} );
     return $Info;
 };