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 { |