comparison Lib/IMPL/ORM/Schema/Relation/Subclass.pm @ 30:dd4d72600c69

ORM in works
author Sergey
date Tue, 03 Nov 2009 16:31:47 +0300
parents 6d33f75c6e1f
children 16ada169ca75
comparison
equal deleted inserted replaced
29:37160f7c8edb 30:dd4d72600c69
8 BEGIN { 8 BEGIN {
9 public property base => prop_get | owner_set; 9 public property base => prop_get | owner_set;
10 } 10 }
11 11
12 our %CTOR = ( 12 our %CTOR = (
13 'IMPL::DOM::Node' => sub { 'Subclass' } 13 'IMPL::ORM::Schema::Relation' => sub { 'Subclass' }
14 ); 14 );
15 15
16 sub CTOR { 16 sub CTOR {
17 my ($this,$base) = @_; 17 my ($this,$base) = @_;
18 18