Mercurial > pub > Impl
diff Lib/IMPL/Class/Property.pm @ 275:6253872024a4
*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; };