Mercurial > pub > Impl
comparison lib/IMPL/SQL/Schema.pm @ 417:3ed0c58e9da3 ref20150831
working on di container, tests
author | cin |
---|---|
date | Mon, 02 Nov 2015 01:56:53 +0300 |
parents | c6e90e02dd17 |
children |
comparison
equal
deleted
inserted
replaced
416:cc2cf8c0edc2 | 417:3ed0c58e9da3 |
---|---|
10 Table => 'IMPL::SQL::Schema::Table' | 10 Table => 'IMPL::SQL::Schema::Table' |
11 }, | 11 }, |
12 base => [ | 12 base => [ |
13 'IMPL::Object' => undef, | 13 'IMPL::Object' => undef, |
14 'IMPL::Object::Disposable' => undef, | 14 'IMPL::Object::Disposable' => undef, |
15 'IMPL::Object::Autofill' => '@_', | |
16 'IMPL::Object::Clonable' => undef, | 15 'IMPL::Object::Clonable' => undef, |
17 ], | 16 ], |
18 props => [ | 17 props => [ |
19 version => PROP_RO | PROP_DIRECT, | 18 version => PROP_RO | PROP_DIRECT, |
20 name => PROP_RO | PROP_DIRECT, | 19 name => PROP_RO | PROP_DIRECT, |
21 _tables => PROP_RO | PROP_DIRECT | 20 _tables => PROP_RO | PROP_DIRECT |
22 ] | 21 ] |
23 }; | 22 }; |
23 | |
24 sub CTOR { | |
25 my ($this,%args) = @_; | |
26 | |
27 $this->$_($args{$_}) foreach grep exists $args{$_}, qw(name version); | |
28 } | |
24 | 29 |
25 sub AddTable { | 30 sub AddTable { |
26 my ($this,$table) = @_; | 31 my ($this,$table) = @_; |
27 | 32 |
28 if (is($table,Table)) { | 33 if (is($table,Table)) { |