Mercurial > pub > Impl

comparison 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
comparison
equal deleted inserted replaced
274:8d36073411b1 275:6253872024a4
20 sub prop_all { 3 }; 20 sub prop_all { 3 };
21 sub prop_list { 4 }; 21 sub prop_list { 4 };
22 22
23 sub property($$;$) { 23 sub property($$;$) {
24 my ($propName,$mutators,$attributes) = @_; 24 my ($propName,$mutators,$attributes) = @_;
25 my $Info = new IMPL::Class::PropertyInfo( {Name => $propName, Mutators => $mutators, Class => scalar(caller), Attributes => $attributes } ); 25 my $Info = new IMPL::Class::PropertyInfo( {name => $propName, mutators => $mutators, class => scalar(caller), attributes => $attributes } );
26 return $Info; 26 return $Info;
27 } 27 }
28 28
29 sub CreateProperty { 29 sub CreateProperty {
30 my ($class,$propName,$mutators,$attributes) = @_; 30 my ($class,$propName,$mutators,$attributes) = @_;
31 my $Info = new IMPL::Class::PropertyInfo( {Name => $propName, Mutators => $mutators, Class => $class, Attributes => $attributes} ); 31 my $Info = new IMPL::Class::PropertyInfo( {name => $propName, mutators => $mutators, class => $class, attributes => $attributes} );
32 return $Info; 32 return $Info;
33 }; 33 };
34 34
35 1; 35 1;