Mercurial > pub > Impl
annotate lib/IMPL/Config/YAMLConfig.pm @ 420:df591e3afd10 ref20150831
sync
| author | cin |
|---|---|
| date | Sat, 25 Feb 2017 22:35:26 +0300 |
| parents | bbc4739c4d48 |
| children | 7798345304bc |
| rev | line source |
|---|---|
| 418 | 1 package IMPL::Config::YAMLConfig; |
| 2 use strict; | |
| 3 | |
| 419 | 4 use IMPL::lang qw(:base); |
| 5 use IMPL::Exception(); | |
| 6 use YAML::XS(); | |
| 7 | |
| 8 sub Load { | |
| 9 my ( $this, $container, $file ) = @_; | |
| 10 | |
| 11 $this->Configure( isscalar($file) | |
| 12 ? YAML::XS::Load( ${$file} ) | |
| 13 : YAML::XS::LoadFile($file) ); | |
| 14 } | |
| 15 | |
| 418 | 16 sub Configure { |
| 419 | 17 my ( $this, $container, $config ) = @_; |
| 418 | 18 |
| 419 | 19 |
| 20 | |
| 418 | 21 } |
| 22 | |
| 23 1; | |
| 24 | |
| 25 __END__ | |
| 26 | |
| 27 =pod | |
| 28 | |
| 29 | |
| 419 | 30 =cut |