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

*refactoring IMPL::Class
author cin
date Thu, 31 Jan 2013 02:18:31 +0400
parents 4d0e1962161c
children
comparison
equal deleted inserted replaced
274:8d36073411b1 275:6253872024a4
7 } 7 }
8 8
9 sub RemapFactoryParams { 9 sub RemapFactoryParams {
10 my ($self,$propInfo) = @_; 10 my ($self,$propInfo) = @_;
11 11
12 return $self->SUPER::RemapFactoryParams($propInfo),$propInfo->Name; 12 return $self->SUPER::RemapFactoryParams($propInfo),$propInfo->name;
13 } 13 }
14 14
15 sub GenerateGet { 15 sub GenerateGet {
16 'return $this->get($field);'; 16 'return $this->get($field);';
17 } 17 }