Mercurial > pub > Impl
diff 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 |
line wrap: on
line diff
--- a/lib/IMPL/SQL/Schema.pm Thu Oct 29 03:50:25 2015 +0300 +++ b/lib/IMPL/SQL/Schema.pm Mon Nov 02 01:56:53 2015 +0300 @@ -12,7 +12,6 @@ base => [ 'IMPL::Object' => undef, 'IMPL::Object::Disposable' => undef, - 'IMPL::Object::Autofill' => '@_', 'IMPL::Object::Clonable' => undef, ], props => [ @@ -22,6 +21,12 @@ ] }; +sub CTOR { + my ($this,%args) = @_; + + $this->$_($args{$_}) foreach grep exists $args{$_}, qw(name version); +} + sub AddTable { my ($this,$table) = @_;