comparison Lib/IMPL/Web/View/Metadata/FormMeta.pm @ 385:0d63f5273307

sync
author sergey
date Tue, 11 Feb 2014 01:05:55 +0400
parents 2f16f13b000c
children 4cc6cc370fb2
comparison
equal deleted inserted replaced
383:2f16f13b000c 385:0d63f5273307
212 212
213 if($model) { 213 if($model) {
214 die ArgException->new(model => "A node is required") 214 die ArgException->new(model => "A node is required")
215 unless is($model,DOMNode); 215 unless is($model,DOMNode);
216 216
217 $args->{decl} ||= $model->schemaSource; 217 $args->{decl} ||= $model->schemaNode;
218 $args->{schema} ||= $model->schema; 218 $args->{schema} ||= $model->schemaType;
219 } 219 }
220 220
221 return $self->new( 221 return $self->new(
222 $model, 222 $model,
223 $modelType, 223 $modelType,