Mercurial > pub > Impl

diff 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
line wrap: on
line diff
--- a/Lib/IMPL/Class/Property/Direct.pm	Tue Dec 20 23:00:30 2011 +0300
+++ b/Lib/IMPL/Class/Property/Direct.pm	Fri Dec 30 23:40:00 2011 +0300
@@ -14,9 +14,11 @@
 	$_[0]->SUPER::factoryParams, qw($field);
 }
 
+my $default = __PACKAGE__->new({ExportField => 1});
+
 sub _direct($) {
     my ($prop_info) = @_;
-    $prop_info->Implementor( IMPL::Class::Property::Direct->new({ExportField => 1}) );
+    $prop_info->Implementor( $default );
     return $prop_info;
 }