--- a/Lib/IMPL/Class/Property/Direct.pm	Wed Oct 12 00:06:07 2011 +0300
+++ b/Lib/IMPL/Class/Property/Direct.pm	Tue Dec 20 23:00:30 2011 +0300
@@ -8,7 +8,7 @@
 use IMPL::Class::Property;
 require IMPL::Exception;
 
-__PACKAGE__->mk_accessors qw(ExportField);
+__PACKAGE__->mk_accessors( qw(ExportField) );
 
 sub factoryParams {
 	$_[0]->SUPER::factoryParams, qw($field);
@@ -78,7 +78,7 @@
 sub FieldName {
     my ($self,$propInfo) = @_;
     
-    my ($class,$name) = $propInfo->get qw(Class Name);
+    my ($class,$name) = $propInfo->get( qw(Class Name) );
     (my $field = "${class}_$name") =~ s/::/_/g;
     return $field;
 }