Mercurial > pub > Impl
diff lib/IMPL/Code/Loader.pm @ 411:ee36115f6a34 ref20150831
sync
author | cin |
---|---|
date | Mon, 21 Sep 2015 00:53:10 +0300 |
parents | c6e90e02dd17 |
children |
line wrap: on
line diff
--- a/lib/IMPL/Code/Loader.pm Mon Sep 14 01:11:53 2015 +0300 +++ b/lib/IMPL/Code/Loader.pm Mon Sep 21 00:53:10 2015 +0300 @@ -11,7 +11,6 @@ }, base => { 'IMPL::Object' => undef, - 'IMPL::Object::Autofill' => '@_' }, props => [ verifyNames => PROP_RO, @@ -31,7 +30,11 @@ } sub CTOR { - my ($this) = @_; + my ($this, %params) = @_; + + $this->verifyNames($params{verifyNames}) if $params{verifyNames}; + $this->prefix($params{prefix}) if $params{prefix}; + $this->_pending({}); }