Mercurial > pub > Impl
comparison lib/IMPL/Code/Loader.pm @ 411:ee36115f6a34 ref20150831
sync
| author | cin |
|---|---|
| date | Mon, 21 Sep 2015 00:53:10 +0300 |
| parents | c6e90e02dd17 |
| children |
comparison
equal
deleted
inserted
replaced
| 410:9335cf010b23 | 411:ee36115f6a34 |
|---|---|
| 9 Exception => 'IMPL::Exception', | 9 Exception => 'IMPL::Exception', |
| 10 ArgumentException => '-IMPL::InvalidArgumentException' | 10 ArgumentException => '-IMPL::InvalidArgumentException' |
| 11 }, | 11 }, |
| 12 base => { | 12 base => { |
| 13 'IMPL::Object' => undef, | 13 'IMPL::Object' => undef, |
| 14 'IMPL::Object::Autofill' => '@_' | |
| 15 }, | 14 }, |
| 16 props => [ | 15 props => [ |
| 17 verifyNames => PROP_RO, | 16 verifyNames => PROP_RO, |
| 18 prefix => PROP_RO, | 17 prefix => PROP_RO, |
| 19 _pending => PROP_RW | 18 _pending => PROP_RW |
| 29 sub safe { | 28 sub safe { |
| 30 $safe ||= new IMPL::Code::Loader(verifyNames => 1); | 29 $safe ||= new IMPL::Code::Loader(verifyNames => 1); |
| 31 } | 30 } |
| 32 | 31 |
| 33 sub CTOR { | 32 sub CTOR { |
| 34 my ($this) = @_; | 33 my ($this, %params) = @_; |
| 34 | |
| 35 $this->verifyNames($params{verifyNames}) if $params{verifyNames}; | |
| 36 $this->prefix($params{prefix}) if $params{prefix}; | |
| 37 | |
| 35 | 38 |
| 36 $this->_pending({}); | 39 $this->_pending({}); |
| 37 } | 40 } |
| 38 | 41 |
| 39 sub Require { | 42 sub Require { |
