Mercurial > pub > Impl

comparison Lib/IMPL/ORM/Schema.pm @ 44:32d2350fccf9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ORM *Minor fixes *Working tarnsform to sql *Fixes to the sql traits
author Sergey
date Mon, 11 Jan 2010 01:42:00 +0300
parents 009aa9ca2e48
children 16ada169ca75
comparison
equal deleted inserted replaced
43:009aa9ca2e48 44:32d2350fccf9
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 require IMPL::ORM::Schema::Entity; 7 require IMPL::ORM::Schema::Entity;
8 require IMPL::ORM::Schema::ValueType; 8 require IMPL::ORM::Schema::ValueType;
9 9
10 our %CTOR = ( 10 our %CTOR = (
11 'IMPL::DOM::Document' => sub { nodeName => 'Schema' } 11 'IMPL::DOM::Document' => sub { nodeName => 'ORMSchema' }
12 ); 12 );
13 13
14 BEGIN { 14 BEGIN {
15 public property mapValueTypes => prop_get | owner_set; 15 public property mapValueTypes => prop_get | owner_set;
16 public property mapReferenceTypes => prop_get | owner_set; 16 public property mapReferenceTypes => prop_get | owner_set;
42 } 42 }
43 43
44 sub declareReferenceType { 44 sub declareReferenceType {
45 my ($this,$typeName) = @_; 45 my ($this,$typeName) = @_;
46 46
47 my $entity = new IMPL::ORM::Schema::Entity($typeName); 47 my $entity = new IMPL::ORM::Schema::Entity($typeName->entityName);
48 48
49 $this->mapPending->{$typeName} = $entity; 49 $this->mapPending->{$typeName} = $entity;
50 50
51 $this->appendChild($entity); 51 $this->appendChild($entity);
52 52