--- a/Lib/IMPL/Object/Autofill.pm	Wed Jan 30 03:30:28 2013 +0400
+++ b/Lib/IMPL/Object/Autofill.pm	Thu Jan 31 02:18:31 2013 +0400
@@ -54,15 +54,15 @@
         if ($class->can('get_meta')) {
             # meta supported
             foreach my $prop_info (grep {
-                my $mutators = $_->Mutators;
-                ref $mutators ? (exists $mutators->{set}) : ($mutators & prop_set || $_->Implementor->isa('IMPL::Class::Property::Direct'));
+                my $mutators = $_->mutators;
+                ref $mutators ? (exists $mutators->{set}) : ($mutators & prop_set || $_->implementor->isa('IMPL::Class::Property::Direct'));
             } $class->get_meta('IMPL::Class::PropertyInfo')) {
-                my $name = $prop_info->Name;
-                if (ref $prop_info->Mutators || !$prop_info->Implementor->isa('IMPL::Class::Property::Direct')) {
+                my $name = $prop_info->name;
+                if (ref $prop_info->mutators || !$prop_info->implementor->isa('IMPL::Class::Property::Direct')) {
                     $text .= "    \$this->$name(\$fields->{$name}) if exists \$fields->{$name};\n";
                 } else {
-                    my $fld = $prop_info->Implementor->FieldName($prop_info);
-                    if ($prop_info->Mutators & prop_list) {
+                    my $fld = $prop_info->implementor->FieldName($prop_info);
+                    if ($prop_info->mutators & prop_list) {
                         $text .= "    \$this->{$fld} = IMPL::Object::List->new ( ref \$fields->{$name} ? \$fields->{$name} : [\$fields->{$name}] ) if exists \$fields->{$name};\n";
                     } else {
                         $text .= "    \$this->{$fld} = \$fields->{$name} if exists \$fields->{$name};\n";