Mercurial > pub > Impl

comparison Lib/IMPL/Class/Property/Direct.pm @ 179:b3d91ff7aea9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes
author sourcer
date Tue, 20 Dec 2011 23:00:30 +0300
parents 76515373dac0
children d1676be8afcc
comparison
equal deleted inserted replaced
178:658a80d19d33 179:b3d91ff7aea9
6 6
7 require IMPL::Object::List; 7 require IMPL::Object::List;
8 use IMPL::Class::Property; 8 use IMPL::Class::Property;
9 require IMPL::Exception; 9 require IMPL::Exception;
10 10
11 __PACKAGE__->mk_accessors qw(ExportField); 11 __PACKAGE__->mk_accessors( qw(ExportField) );
12 12
13 sub factoryParams { 13 sub factoryParams {
14 $_[0]->SUPER::factoryParams, qw($field); 14 $_[0]->SUPER::factoryParams, qw($field);
15 } 15 }
16 16
76 } 76 }
77 77
78 sub FieldName { 78 sub FieldName {
79 my ($self,$propInfo) = @_; 79 my ($self,$propInfo) = @_;
80 80
81 my ($class,$name) = $propInfo->get qw(Class Name); 81 my ($class,$name) = $propInfo->get( qw(Class Name) );
82 (my $field = "${class}_$name") =~ s/::/_/g; 82 (my $field = "${class}_$name") =~ s/::/_/g;
83 return $field; 83 return $field;
84 } 84 }
85 85
86 1; 86 1;