Mercurial > pub > Impl

comparison Lib/IMPL/Object/Autofill.pm @ 148:e6447ad85cb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM objects now have a schema and schemaSource properties RegExp now can launder data Improved post to DOM transformation (multiple values a now supported) Added new axes to navigation queries: ancestor and descendant minor changes and bug fixes
author wizard
date Mon, 16 Aug 2010 08:26:44 +0400
parents 16ada169ca75
children 4267a2ac3d46
comparison
equal deleted inserted replaced
147:c2aa10fbb396 148:e6447ad85cb4
60 if (ref $prop_info->Mutators || !$prop_info->Implementor->isa('IMPL::Class::Property::Direct')) { 60 if (ref $prop_info->Mutators || !$prop_info->Implementor->isa('IMPL::Class::Property::Direct')) {
61 $text .= "\t\$this->$name(\$fields->{$name}) if exists \$fields->{$name};\n"; 61 $text .= "\t\$this->$name(\$fields->{$name}) if exists \$fields->{$name};\n";
62 } else { 62 } else {
63 my $fld = $prop_info->Implementor->FieldName($prop_info); 63 my $fld = $prop_info->Implementor->FieldName($prop_info);
64 if ($prop_info->Mutators & prop_list) { 64 if ($prop_info->Mutators & prop_list) {
65 $text .= "\t\$this->{$fld} = ref \$fields->{$name} ? \$fields->{$name} : [\$fields->{$name}] if exists \$fields->{$name};\n"; 65 $text .= "\t\$this->{$fld} = IMPL::Object::List->new ( ref \$fields->{$name} ? \$fields->{$name} : [\$fields->{$name}] ) if exists \$fields->{$name};\n";
66 } else { 66 } else {
67 $text .= "\t\$this->{$fld} = \$fields->{$name} if exists \$fields->{$name};\n"; 67 $text .= "\t\$this->{$fld} = \$fields->{$name} if exists \$fields->{$name};\n";
68 } 68 }
69 } 69 }
70 } 70 }