Mercurial > pub > Impl

comparison Lib/IMPL/Class/Property/Direct.pm @ 180:d1676be8afcc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Перекодировка в utf-8
author sourcer
date Fri, 30 Dec 2011 23:40:00 +0300
parents b3d91ff7aea9
children 4d0e1962161c
comparison
equal deleted inserted replaced
179:b3d91ff7aea9 180:d1676be8afcc
12 12
13 sub factoryParams { 13 sub factoryParams {
14 $_[0]->SUPER::factoryParams, qw($field); 14 $_[0]->SUPER::factoryParams, qw($field);
15 } 15 }
16 16
17 my $default = __PACKAGE__->new({ExportField => 1});
18
17 sub _direct($) { 19 sub _direct($) {
18 my ($prop_info) = @_; 20 my ($prop_info) = @_;
19 $prop_info->Implementor( IMPL::Class::Property::Direct->new({ExportField => 1}) ); 21 $prop_info->Implementor( $default );
20 return $prop_info; 22 return $prop_info;
21 } 23 }
22 24
23 25
24 sub GenerateGet { 26 sub GenerateGet {